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ABSTRACT 

Prototyping  is  an  important  software  development  method  to  rapidly  construct 
software,  validate  and  refine  requirements,  and  check  the  consistency  of  proposed 
software  designs.  This  thesis  describes  the  design  and  implementation  of  a  CASE 
tool  to  be  used  in  conjunction  with  the  Computer  Aided  Prototyping  System  (CAPS) 
which  retrieves  and  prepares  reusable  components  for  use  in  PSDL  (Prototype 
System  Description  Language)  prototypes.  Reusable  components  and  their  PSDL 
specifications  are  stored  in  an  software  base. 

Components  can  be  retrieved  from  the  software  base  via  its  Object-Oriented 
Data  Base  Management  System  (OODBMS)  using  PSDL  to  formulate  queries.  All 
of  the  PSDL  specifications  for  the  reusable  components  are  normalized  and  stored 
in  the  software  base  to  support  efficient  search  based  on  a  given  query  PSDL 
specification  for  a  software  component.  The  search  process  is  based  on  both 
syntactic  and  semantic  matches  between  the  query  and  stored  components. 

Our  software  base  has  been  designed  to  be  easily  configured  to  support 
storage  and  retrieval  of  reusable  components  in  any  programming  language  with 
the  initial  configuration  for  Ada  components. 

A  window  based  user  interface  was  also  implemented  to  allow  easy  access  to 
the  software  base  via  the  CAPS  user  interface  as  well  as  stand  alone  use. 
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I.  INTRODUCTION 

This  thesis  addresses  the  issues  related  to  the  design  and  implementation  of  an 
automated  reusable  software  component  retrieval  system.  The  purpose  of  the  system  is 
to  support  the  Computer  Aided  Prototyping  System  (CAPS)  [Ref  1].  CAPS  is  an 
ongoing  software  engineering  research  project  at  the  Naval  Postgraduate  School.  The 
reusable  component  retrieval  system  is  a  critical  component  in  the  CAPS  tool  set. 

This  chapter  provides  an  introduction  to  computer  aided  prototyping  and  the  need 
for  automated  retrieval  of  software  components.  Chapter  n  details  the  current  state  of 
the  art  in  component  reuse  and  reusable  component  libraries.  Chapter  IV  is  an  overview 
of  CAPS  and  its  specification  language,  Prototyping  System  Description  Language 
(PSDL),  used  for  specifying  reusable  components.  Chapter  IV  presents  the  design  and 
implementation  of  the  software  base  for  CAPS.  Chapter  V  contains  the  conclusions  of 
this  research  and  recommendations  for  future  research.  Appendix  A  details  the  usage  of 
PSDL  to  specify  reusable  components.  Appendix  B  contains  the  source  code  for  the 
software  base  system.  Appendix  C  is  the  source  code  for  the  generation  of  the  PSDL 
parser.  Appendix  D  presents  an  example  of  how  to  integrate  reusable  Ada  components 
into  a  CAPS  prototype.  Appendix  E  provides  the  specification  for  the  software  base 
command  line  interface.  Appendix  F  is  a  users  manual  for  the  software  base  graphical 
user  interface.  Appendix  G  is  the  source  code  for  the  software  base  graphical  user 
interface. 


A.     THE  SOFTWARE  CRISIS 

Creating  software  for  hard  real-time  and  embedded  computer  systems  is  a  complex 
process.  The  complexity  of  this  task  has  created  a  situation  where  the  demand  for  these 
systems  currently  exceeds  the  ability  of  the  software  industry  to  develop  them. 

The  United  States  Department  of  Defense  (DOD)  is  the  world's  largest  user  of 
embedded  computer  systems.  In  the  mid  1970's  the  gap  between  the  growing  demand  for 
high  quality  software  and  industry's  inability  to  meet  that  demand  caused  the  DOD  to 
investigate  potential  solutions  to  the  problem.  The  DOD  concluded  that  the  problems 
"...appear  in  the  form  of  software  that  is  non-responsive  to  user  needs,  unreliable, 
excessively  expensive,  untimely,  inflexible,  difficult  to  maintain,  and  not  reusable." 
[Ref.  2:p41] 

One  of  the  results  of  this  investigation  was  the  development  of  the  Ada  programing 
language.  Although  Ada  provides  some  capabilities  to  overcome  the  shortcomings  noted 
by  the  DOD  additional  software  tools  are  still  required  if  the  software  gap  is  to  be  closed. 
These  tools  are  especially  needed  in  the  areas  of  requirements  analysis  and  refinement, 
software  validation,  and  software  testing.  The  design  and  implementation  of  tools  in 
these  areas  continues  to  be  a  major  focus  of  software  engineering  research. 


B.     STRUCTURED  ANALYSIS 

A  widely  used  design  methodology  that  attempted  to  address  the  issues  in  software 
development  is  Structured  Analysis  [Ref  3:p78].  Structured  analysis  breaks  the  creation 
of  software  systems  into  distinct  areas  or  steps,  which  is  essentially  a  variation  of  the 
"waterfall"  model  in  DOD-STD-2167A  [Ref  4:pl0]. 

Its  first  step  is  requirements  analysis.  During  this  step  the  actual  needs  and  external 
interfaces  of  the  system  are  identified  and  recorded.  The  second  step  is  functional 
specification  of  the  system.  Functional  specification  uses  the  requirements  from  the  first 
step  to  specify  the  proposed  external  functionality  of  the  software  system.  The  third  step 
in  structured  analysis  is  system  design.  During  the  design  step  the  internal  aspects  of  the 
system  are  specified.  This  design  is  then  used  in  the  fourth  step,  which  is  system 
implementation.  After  the  system  has  been  implemented  the  system  is  tested  and 
delivered.  After  initial  system  delivery  the  software  enters  its  maintenance  phase. 
Maintenance  of  the  system  follows  the  same  basic  approach  with  each  change  going 
through  requirements  analysis,  design,  and  finally  implementation. 

If  at  any  time  during  this  approach  an  inconsistency  is  identified  the  process  reverts 
back  to  the  appropriate  step  to  correct  the  problem.  This  method  of  software 
development  has  been  called  the  "waterfall  approach"  because  the  system  goes  from  one 
step  to  the  other  as  though  going  down  a  waterfall.  Figure  1  is  a  graphic  representation 
of  classical  structured  analysis. 
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Figure  1  -  Classical  Structured  Analysis 


This  approach  has  been  modified  [Ref  3]  to  make  the  steps  in  the  model  less  distinct 
and  allow  more  parallel  effort.  The  steps  were  made  less  distinct  because  in  practice  it 
was  found  that  information  discovered  in  later  steps  sometimes  required  earlier  steps  to 
be  modified.  The  ability  to  complete  steps  in  parallel  is  possible  because  some  functions 
lower  in  the  cycle  can  be  performed  while  higher  level  items  are  being  completed.  This 
parallel  activity  can  greatly  enhance  the  efficiency  of  the  overall  effort  and  allows  for 
more  feedback  between  steps. 

In  order  for  this  approach  to  work  there  must  be  a  means  of  communicating  the 
results  of  each  step  other  than  plain  English.  This  is  because  English  prose  can  be 
amibiguos  and  if  is  very  difficult  to  verify  the  consistancy  of  a  written  document. 


Several  representations  were  developed  in  order  to  convey  this  information.  These 
representations  include  Data  Flow  Diagrams  (DFD's),  Context  Diagrams  (CD's),  Entity 
Relationship  Diagrams  (E/R  Diagrams),  State  Transition  Diagrams  (STD's),  and  Data 
Dictionaries  (DD).  These  representations  make  it  possible  for  the  developers  to 
communicate  with  each  other  the  behavior  of  a  proposed  system. 

One  of  the  deficiencies  of  structured  analysis  is  that  the  English  prose  used  to 
describe  portions  of  the  requirements  of  the  system  often  is  not  precise  enough  to  define 
critical  subsystems.  This  is  very  important  where  failure  of  a  real-time  or  embedded 
system  to  meet  a  given  requirement  could  result  in  injury  or  death.  Most  military 
software  systems  and  medical  systems  fall  into  this  category  because  failure  can  result  in 
life  threatening  circumstances. 

Several  high  level  specification  languages  have  been  developed  to  solve  these 
problems.  These  languages  support  formal  specifications  of  critical  portions  of  the 
system.  From  these  formal  specifications  the  system  can  be  verified  to  achieve  the 
required  functionality.  One  such  specification  language  is  SPEC  [Ref  5:  p821.  SPEC 
can  be  used  to  rigorously  specify  critical  sections  to  avoid  ambiguity. 

Communication  between  a  software  development  team  and  the  system's  end  users  is 
difficult  using  structured  analysis.  This  communication  is  vital  since  in  most  cases  the 
software  development  team  is  unfamiliar  with  the  domain  of  the  proposed  system  while 
the  domain  experts  (end  users)  are  unfamiliar  with  many  of  the  representations  used  in 
the  development  of  the  software  system. 


Although  DFD's,  CD's,  E/R  diagrams,  STD's,  DD's,  and  formal  specification 
languages  are  very  useful  for  communication  between  software  engineers,  many  end 
users  are  unfamiliar  and/or  uncomfortable  with  them.  This  results  in  potential  mistakes 
or  misconceptions  between  the  developers  and  the  users  in  the  early  stages  of  a  project 
that  can  go  undetected  until  the  first  executable  version  of  the  system  has  been 
completed.  The  development  of  this  first  executable  version  of  a  system  can  consume  so 
much  of  a  projects  allotted  development  time  or  budget  that  it  may  be  too  late  or  costly 
to  make  any  major  modifications.  This  results  in  the  end  user  being  forced  to  accept  a 
system  that  does  not  meet  their  original  expectations. 

C.     RAPID  PROTOTYPING 

One  promising  area  of  software  engineering  research  that  addresses  this  problem  is 
rapid  prototyping  [Ref  6].  A  prototype  is  an  executable  model  of  a  proposed  software 
system,  usually  including  a  software  simulation  of  the  system's  hardware  external 
interfaces.  The  prototype  accurately  reflects  chosen  aspects  of  the  system  including 
display  formats,  correctness  of  computations,  and  real-time  constraints. 

Prototyping  attempts  to  solve  the  communications  problem  by  rapidly  developing  a 
prototype  of  the  proposed  system  from  available  information  and  then  using  that 
prototype  to  communicate  to  the  user[Ref  7].  The  executable  prototype  presents  a  view 
of  the  system  that  the  user  is  most  familiar  with.  This  allows  the  user  to  provide 
feedback  to  the  design  team  that  can  be  used  to  update  the  prototype.    This  feedback 


process  continues  until  the  user  is  satisfied  that  the  prototype  accurately  describes  the 
needs  of  the  system.  At  this  point  the  prototype  system  itself  acts  as  one  of  specification 
tools  for  the  final  system. 

There  are  two  problem  areas  in  the  acceptance  of  prototyping  as  the  preferred 
software  development  technique.  The  first  is  that  the  process  of  creating  and  modifying 
prototypes  must  be  rapid  enough  to  avoid  the  same  resource  consumption  pitfalls  of 
classical  structured  analysis.  The  second  difficulty  is  that  typically  prototype  systems  are 
used  only  as  a  guideline  for  the  final  system.  Yourdon  states  "when  the  modeling  is 
finished,  the  programs  will  be  thrown  away  and  replaced  with  REAL  programs." 
[Ref  3:p98]  If  all  of  the  prototype  system  is  completely  discarded  it  becomes 
questionable  as  to  how  effective  the  prototyping  approach  is  at  reducing  software  system 
development  cost  and  time. 

Without  addressing  these  two  issues  prototyping  could  actually  increase  the  overall 
development  time  and  cost  of  the  system  as  compared  to  structured  analysis.  Clearly  to 
fulfill  the  promise  of  rapid  prototyping  it  is  necessary  to  overcome  these  difficulties. 

The  solution  to  the  first  problem  is  the  development  of  computer  aided  prototyping 
systems  that  enable  the  rapid  development  of  executable  prototypes.  To  achieve  this 
rapid  evolution  of  executable  prototypes  it  is  necessary  to  achieve  a  very  high  rate  of 
code  reuse  instead  of  creating  the  entire  prototype  from  scratch  [Ref  81.  The  solution  to 
the  second  problem  is  to  implement  the  prototype  with  code  of  sufficient  quality  that 


only  those  modules  that  require  performance  enhancements  need  be  re-implemented  to 
produce  the  final  system. 

With  this  in  mind  it  is  clear  that  for  rapid  prototyping  to  be  of  maximum  benefit, 
reusable  component  libraries  containing  many  high  quality  components  coupled  with 
powerful  query  techniques  to  identify  components  for  reuse  are  mandatory.  The 
remainder  of  this  thesis  discusses  CAPS  and  the  development  of  a  reusable  component 
software  base  that  fulfills  these  requirements. 

D.     THE  COMPUTER  AIDED  PROTOTYPING  SYSTEM  (CAPS) 

The  Computer  Aided  Prototyping  system  is  designed  as  a  rapid  prototyping  system 
for  hard  real-dme  systems.  CAPS  prototypes  a  system  through  translation  of  the  high 
level  specification  language  Prototyping  System  Description  Language  (PSDL)  into  Ada 
code  along  with  the  incorporation  of  atomic  Ada  reusable  components  [Ref  9].  The 
concept  of  using  both  specification  translation  and  atomic  component  composition  makes 
CAPS  a  unique  prototyping  tool.  PSDL  is  unique  in  that  it  provides  a  rich  set  of 
real-time  constraints  to  enable  the  prototyping  of  hard  real-time  systems,  and  automatic 
translation  of  these  timing  constraints  into  Ada  tasking  information. 

The  use  of  composition  of  atomic  components  allows  for  the  use  of  high  quality 
reusable  Ada  components  to  provide  the  majority  of  the  code  to  implement  the  prototype. 
PSDL  is  used  to  specify  the  interface  and  functionality  of  the  atomic  components  to 
make  automated  searches  of  a  reusable  component  library  feasible. 


The  software  base  subsystem  of  CAPS  has  been  designed  to  allow  the  user  to  create 
a  PSDL  specification  of  a  necessary  component  and  then  perform  an  automated  search 
of  the  library  for  preexisting  candidate  implementations  of  the  specification.  Automation 
of  the  search  of  the  software  base  is  critical  because  the  software  base  must  be  able  to 
grow  indefinitely  without  significantly  degrading  the  users  ability  to  locate  components 
for  reuse.  As  the  software  base  grows  larger  fewer  components  will  need  to  be  manually 
coded,  thus  achieving  a  system  that  provides  greater  power  with  time. 

E.     GOALS  OF  THIS  THESIS 

The  goal  of  this  thesis  is  to  describe  the  design  and  implementation  of  a  software 
base  system  for  the  CAPS  prototyping  environment.  The  theoretical  foundations  for 
component  matching,  the  development  of  algorithms  to  take  advantage  of  these  concepts, 
the  design  of  a  database  structure  that  enables  the  efficient  implementation  of  the  entire 
system,  and  a  description  of  how  to  obtain  the  maximum  benefit  of  using  this  system  are 
discussed. 


II.  REUSABLE  COMPONENT  LIBRARIES 

As  the  gap  between  the  demand  for  software  systems  and  the  software  industry's 
ability  to  meet  it  became  obvious,  so  did  the  need  to  reuse  existing  software  components. 
Many  retrieval  systems  have  been  proposed  and  implemented  that  address  this  issue. 
Several  of  these  systems  are  discussed  in  this  section. 

In  order  to  compare  and  contrast  these  retrieval  systems  it  is  necessary  to  develop  a 
metric  by  which  the  systems  can  be  evaluated.  How  well  an  information  system 
performs  is  based  on  the  nature  of  the  objects  that  are  returned  for  a  given  query.  The 
two  most  useful  measures  of  performance  for  a  retrieval  system  are  precision  and  recall 
[Ref  10].  Precision  is  defined  as  the  ratio  between  the  number  of  relevant  components 
retrieved  and  the  total  number  of  components  retrieved.  Recall  is  defined  as  the  ratio 
between  the  number  of  relevant  components  retrieved  and  the  number  of  relevant 
components  in  the  database.  Precision  and  recall  are  both  maximal  when  they  equal  1. 

There  is  a  tradeoff  between  precision  and  recall.  It  is  easy  to  have  a  system 
maximize  one  but  not  the  other.  If  the  system  returns  all  objects  in  the  database  than 
recall  will  always  be  1  but  precision  will  be  very  low.  On  the  other  hand  if  a  query  only 
yields  one  relevant  component  than  precision  would  be  1  but  recall  would  be  low. 

In  order  to  obtain  maximum  reuse  of  existing  software  components  in  a  given 
collection  of  components,  queries  on  that  collection  should  have  a  recall  value  of  1. 
Without  a  recall  of  1,  components  that  could  be  reused  will  be  missed.  The  system  also 
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needs  a  high  degree  of  precision  because  it  is  possible  to  spend  more  time  manually 
searching  through  the  results  of  a  component  query  with  low  precision  than  it  would  take 
to  implement  the  component  manually. 

A.     RETRIEVAL  METHODS 

Almost  all  of  the  tools  developed  to  assist  in  reusing  software  components  use  one 
(or  more)  of  three  different  approaches  for  retrieval  of  components;  browsers,  informal 
specifications,  or  formal  specifications.  For  this  reason  a  general  overview  of  these 
retrieval  methods  is  presented  followed  by  a  discussion  of  some  existing  tools  that  use 
these  methods. 

1.      Browsers 

A  browser  is  a  tool  for  looking  through  a  collection  of  software  components. 
The  interface  for  a  browser  can  range  from  simple  text  through  complex  graphical  user 
interfaces.  The  goal  of  all  such  systems  is  to  allow  the  user  to  direct  a  search  through  the 
available  components. 

The  advantage  of  a  browsing  system  is  that  the  user  is  given  complete  control 
over  the  retrieval  process.  This  can  be  important  for  users  who  are  familiar  with  the 
content  of  the  software  collection  and  want  the  ability  to  quickly  traverse  the  structure  of 
the  collection  to  find  components  that  they  know  are  in  the  collection. 

The  first  disadvantage  of  the  system  is  that  it  has  very  low  precision.  The  user 
may  have  to  look  at  all  of  the  components  to  find  the  one  that  is  desired.  Because  of  the 
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manual  nature  of  the  search,  as  the  software  collection  grows  the  time  the  user  spends 
browsing  also  increases. 

The  second  disadvantage  of  browsing  is  that  the  system  relies  on  the  users 
knowledge  of  the  structure  of  software  collection.  Without  such  knowledge  a  user  will 
have  difficulty  in  directing  a  search  to  retrieve  a  desired  reusable  component. 

The  third  disadvantage  of  this  type  of  a  system  is  that  unless  the  user  finds 
exactly  what  they  are  searching  for,  there  is  no  clear  termination  point  for  the  search  until 
every  component  has  been  reviewed. 
2.      Inforinal  Specifications 

This  technique  requires  the  user  to  describe  or  list  some  attributes  of  the 
component  that  they  are  looking  for.  This  informal  description  is  then  used  to  direct  the 
user  to  the  appropriate  components.  Examples  of  some  common  attributes  are  keywords 
and  natiu-al  language  interfaces. 

B.     KEYWORD  SEARCH 

A  keyword  searching  mechanism  requires  the  user  to  specify  a  list  of 
words  relevant  to  the  component  being  sought.  The  keywords  the  user  chooses  can  be 
drawn  from  a  known  system  vocabulary  (controlled  vocabulary)  or  they  can  be 
unconstrained  (uncontrolled  vocabulary).  In  the  case  of  uncontrolled  vocabulary 
synonym  tables  are  often  used  to  normalize  the  keyword  selections  into  a  known 
vocabulary. 
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The  advantage  of  the  keyword  query  is  that  it  is  conceptually  simple  and 
reduces  the  number  of  components  that  the  user  must  review.  Because  of  this  simplicity 
many  of  the  software  component  retrieval  mechanisms  reviewed  in  the  next  section 
employ  some  aspects  of  this  technique. 

There  are  two  basic  disadvantages  to  this  approach.  The  first  one  is  that 
the  precision  and  recall  of  the  system  depend  on  how  many  keywords  are  used  for  the 
query.  Using  only  one  keyword  typically  will  result  in  a  very  large  number  of 
components  (high  recall,  low  precision).  Using  too  many  keywords  could  miss  possible 
candidate  components  (high  precision,  low  recall). 

The  second  disadvantage  is  that  the  user  must  be  familiar  with  the 
structure  of  the  keyword  categories  that  are  being  used  by  the  collection  administrator  to 
achieve  maximum  benefit  form  the  system.  Without  such  knowledge  a  user  can  easily 
miss  potential  candidates  that  match  their  needs. 

C.     MULTI-ATTRIBUTE  SEARCH 

A  multi-attribute  search  is  really  just  an  extension  of  the  keyword 
concept.  Instead  of  using  only  keywords  for  forming  a  query,  other  attributes  of  the 
search  component  can  be  used  as  well.  These  attributes  includes  the  class  of  component 
(procedure,  function,  package,  etc.),  the  number  and  type  of  parameters  used,  its  domain 
of  use,  etc. 
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The  advantage  of  this  type  of  system  is  that  by  using  more  than  just 
keywords  the  search  can  be  more  selective.  All  of  the  attributes  taken  together  make  up 
a  classification  scheme  that  provides  more  information  than  keywords  alone. 

The  disadvantage  to  this  type  of  system  is  that  the  collection 
administrator  must  identify  the  attributes  for  stored  components  and  the  user  must 
identify  the  attributes  of  the  component  that  is  desired.  If  the  user  succeeds  in  filling  in 
the  same  attribute  values  as  the  administrator  will  a  query  be  successful,  otherwise  the 
query  mechanism  must  be  capable  of  identifying  when  two  attributes  are  "close"  to  being 
the  same. 

1.  Natural  Language  Interfaces 

Natural  language  interfaces  for  information  retrieval  is  a  growing  field  of 
computer  science  research.  An  advantage  of  this  system  is  the  ease  in  which  a  user 
describes  a  desired  component. 

The  difficulty  in  this  approach  is  that  due  to  the  broad  semantics  of  the  English 
language,  implementation  of  these  systems  have  had  to  constrain  the  language  used  to 
form  a  query.  As  the  number  of  constraints  on  the  query  language  grows  the  system 
begins  to  be  more  like  a  multi-attribute  system. 

2.  Formal  Specincations 

The  use  of  formal  specifications  to  direct  a  reusable  component  query  can  be 
very  beneficial.  Because  specifications  systems  such  as  SPEC  and  OBJ3  [Ref  11]  are 
based  on  predicate  calculus  they  are  free  from  ambiguity.     This  means  that  formal 
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specifications  can  be  transformed  into  normal  representations  without  changing  their 
meaning  using  logic  and  term  rewriting  rules. 

Matching  of  specifications  allows  queries  that  achieve  both  high  precision 
(formal  specifications  enable  conclusive  demonstrations  that  particular  components  do 
meet  the  requirements  in  a  query)  and  high  recall  (through  term  rewriting  it  is  possible  to 
allow  candidates  with  appropriate  functionality  to  be  located  even  if  the  author  of  the 
component  did  not  anticipate  the  components  being  utilized  in  this  context). 

The  primary  disadvantage  of  this  approach  is  that  writing  formal  specifications 
for  components  is  difficult  and  requires  software  engineers  with  advanced  skills. 
Another  disadvantage  is  that  automated  matching  of  formal  specifications  can  be  time 
consuming. 

D.     REVIEW  OF  CURRENT  SYSTEMS 

1.      Draco 

The  Draco  project  was  bom  in  the  early  1980's  at  the  University  of  California, 
Irvine.  The  Draco  approach  to  software  reuse  is  essentially  a  multi-attribute  query 
system.  Software  components  are  organized  into  problem  areas  or  domains.  Queries  are 
constructed  by  the  formulation  of  a  tuple  of  attributes  that  best  characterizes  a  particular 
domain.  Each  domain  uses  a  different  set  of  attributes  for  its  queries.  This  type  of 
classification  of  components  has  been  called  faceted  classification  [Ref  12]. 
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In  evaluating  the  effectiveness  of  faceted  classification  Draco  researchers 
compared  it  to  a  system  using  no  classification  scheme.  Using  faceted  classification  the 
number  of  components  retrieved  was  reduced  by  more  than  50%  yet  the  precision  of  the 
queries  was  100%. 

The  advantages  of  faceted  classification  are  that  it  is  conceptually  simple  for 
users  and  relatively  easy  to  implement.  Because  of  this,  the  concept  has  been  borrowed 
to  implement  the  retrieval  methods  in  both  RAPID  and  OSS  (See  sections  B.2  and  B.3). 

One  of  the  disadvantages  of  this  type  of  system  is  that  semanrically  similar 
components  may  be  missed  because  there  attribute  definitions  are  different.  Draco 
addresses  this  issue  by  maintaining  a  measure  of  conceptual  closeness  for  the  term  lists  of 
each  attribute.  This  allows  unsuccessful  searches  to  be  tried  again  using  an  alternate  but 
similar  term  for  one  of  its  attributes. 

Another  disadvantage  of  this  system  is  that  components  in  other  domains  that 
may  be  useful  are  easily  missed.    This  puts  the  burden  on  the  user  to  ensure  that  they 
have  selected  an  appropriate  domain  for  their  search. 
2.      Rapid 

The  RAPID  (Reusable  Ada  Packages  for  Information  System  Development) 
project  is  an  ongoing  effort  in  the  Department  of  Defense.  The  objective  of  RAPED  is  to 
provide  software  engineers  with  quick  access  to  reusable  Ada  packages  in  the 
information  systems  domain.  The  system  performs  reusable  component  classification, 
storage  and  retrieval. 
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RAPID  uses  a  faceted  classification  scheme  to  organize  and  retrieve 
components  and  thus  uses  multi-attribute  searches  [Ref  13].  The  system  is  currently 
being  beta  tested  but  no  measures  of  performance  or  quality  assessments  are  available 
yet. 

3.  Operation  Support  System 

The  Operation  Support  System  (OSS)  is  an  ongoing  project  aimed  at 
developing  an  integrated  software  engineering  environment.  The  system  is  being 
developed  at  the  Naval  Ocean  Systems  Center.  One  of  the  goals  of  the  project  is  to 
establish  a  Naval  software  library  of  reusable  software  components. 

The  current  prototype  library  subsystem  allows  for  component  retrieval  using 
faceted  classification  (See  section  B.l),  keywords,  or  simple  textual  browsing.  The 
components  currently  stored  in  the  library  are  for  command,  control,  and 
communications  and  intelligence  (Ol)  systems.  Due  to  the  early  stages  of  this  project  no 
information  is  available  on  the  performance  characteristics  of  the  system. 

4.  The  Reusable  Software  Library 

The  Reusable  Software  Library  is  a  system  design  by  Intermetrics  to  make 

software  reuse  an  integral  part  of  the  software  development  process.  Components  in  this 

system  are  stored  in  a  database  with  attribute  values  that  provide  the  basis  for  a  search. 

There  are  two  methods  available  to  search  for  a  component.  These  methods  are  based  on 

multi-attribute  and  natural  language  searches. 
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The  multi- attribute  search  provides  a  menu  driven  system  in  which  the  user 
selects  the  attributes  desired  for  the  search.  Alteratively  the  user  may  express  the  query 
in  a  natural  language  form  such  as  "I  want  a  stack  package  for  Integers."  The  system 
parses  this  natural  language  input  for  keywords  and  forms  a  multi-attribute  query  from  it. 

The  designers  of  the  system  report  [Ref  14]  that  the  natural  language  front  end 
is  considerably  easier  to  use  but  the  search  speed  is  significantly  slower.   No  additional 
measures  of  performance  were  provided. 
5.      Common  Ada  Missile  Packages 

The  Common  Ada  Missile  Packages  (CAMP)  project  is  an  effort  sponsored  by 
the  Department  of  Defense  to  create  a  software  engineering  system  and  reusable  software 
library  of  components.  The  system  is  directed  toward  software  for  missile  systems  and 
uses  Ada  as  the  source  language  for  its  reusable  components. 

The  main  part  of  the  reusable  component  system  is  the  Parts  Engineering 
System  (PES)  catalog.  The  PES  catalog  is  similar  to  a  card  catalog  for  books.  The 
catalog  system,  used  by  both  software  engineers  and  domain  engineers,  is  written  in  Ada 
and  provides  a  menu  driven  interface  for  storing,  modifying,  and  retrieving  components 
(parts).  Queries  to  this  system  are  of  the  multi-attribute  type. 

Users  select  a  set  of  attributes  to  search  for  from  a  predetermined  finite  list  of 
values.  The  system  then  queries  on  each  of  these  attributes  one  at  a  time.  The  results  of 
these  queries  can  be  chained  together  to  achieve  a  multi-attribute  query.  The  CAMP 
documentation  [Ref  15]  does  not  assess  the  performance  of  the  PES  Catalog  system. 
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6.      Software  Reuse  At  Hewlett-Packard 

Hewlett-Packard  recognizes  the  need  to  make  software  reuse  an  integral  part 
of  the  software  development  process  [Ref  16].  A  reusable  component  retrieval  system  is 
currendy  under  development  to  help  achieve  this  goal.  The  system  will  have  a  hyper-text 
browsing  facility  as  well  as  using  informal  specifications  to  locate  reusable  components. 
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III.  CAPS  AND  PSDL 

The  Computer  Aided  Prototyping  System  (CAPS),  with  its  accompanying 
specification  language  the  Prototyping  System  Description  Language  (PSDL),  is  an 
ongoing  software  engineering  project  in  the  Naval  Postgraduate  School  computer  science 
department.  CAPS  is  a  set  of  software  tools  designed  to  automate  the  process  of 
prototyping  real-time  software  systems  [Ref  17]. 

A.  USING  CAPS  TO  BUILD  EXECUTABLE  PROTOTYPES 

The  basic  building  blocks  for  a  prototype  in  CAPS  are  operators,  types,  and 
streams.  The  software  system  being  prototyped  is  modeled  as  an  OPERATOR  whose 
input  and  output  streams  correspond  to  the  external  interfaces  of  the  system.  For 
prototyping  purposes,  CAPS  uses  operators  for  software  simulation  of  external  entities  as 
well.  Based  on  this,  the  top  level  Data  Flow  Diagram  (DFD)  for  the  prototyped  system  is 
composed  of  an  operator  that  represents  the  proposed  system  itself,  one  operator  for  each 
external  entity,  and  the  external  data  streams  in  and  out  of  the  proposed  system.  This  top 
level  DFD  is  the  decomposition  of  a  single  operator  that  represents  a  closed  system 
composed  of  the  proposed  software  and  all  external  systems  that  interact  with  the 
software.  Figure  2  is  an  example  of  a  top  level  DFD  for  a  prototyped  software  system. 
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Figure  -  2  CAPS  Top  Level  DFD  For  Robot  Prototype 
CAPS  prototypes  are  expressed  in  the  Prototyping  System  Description  Language 
(PSDL).  PSDL  is  based  on  a  graph  model  for  real-time  system: 
G=(V,E,T(V),C(V)) 
where  G  is  the  graph  that  represents  a  prototype,  V  is  the  set  of  vertices  in  the  graph 
where  each  vertex  represents  an  operator  in  the  prototype,  E  is  the  set  of  directed  edges 
in  the  graph  where  each  edge  represents  a  data  stream,  T(V)  is  the  set  of  timing 
constraints  that  are  imposed  on  the  vertex  set  V,  and  C(V)  is  the  set  of  control  constraints 
placed  on  the  vertex  set  V  [Ref.  18]. 

Decomposition  of  a  prototype  is  achieved  by  implementing  each  of  its  composite 
operators  with  a  graph.    Each  new  graph  G'  is  a  more  detailed  representation  of  one  of 
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the  nodes  in  its  parent  graph  G.  Decomposition  of  operators  continues  in  this  fashion 
until  each  operator  has  been  fully  decomposed. 

In  order  to  make  a  prototype  specified  in  PSDL  executable,  it  is  necessary  to 
provide  programming  language  implementations  for  all  leaf  operators.  The  current 
version  of  CAPS  requires  that  all  leaf  operators  be  implemented  in  the  Ada  programming 
language.  Future  versions  of  CAPS  will  be  capable  of  supporting  other  programming 
languages  as  well. 

Each  data  stream  in  CAPS  carries  an  instance  of  an  abstract  data  type.  The  abstract 
data  type  for  each  stream  is  defined  as  a  PSDL  TYPE  component.  This  definition 
includes  all  of  the  OPERATORS  that  can  operate  on  that  data  type.  A  PSDL  type's 
operators  can  also  be  graphically  decomposed  in  the  same  manner  as  a  prototype's 
operators.  To  make  a  prototype  executable,  all  of  the  PSDL  type's  leaf  operators  must 
be  implemented  in  Ada. 

In  the  current  version  of  CAPS  the  designer  uses  a  graphical  editor  to  design  and 
decompose  the  prototype's  operators  [Ref  19].  Future  versions  of  CAPS  will  also  allow 
for  graphical  design  of  abstract  data  types. 

By  specifying  prototypes  in  this  manner  CAPS  can  rapidly  build  an  executable 
real-time  prototype  for  user  validation.  Any  deficiencies  that  the  validation  process 
identifies  can  be  applied  to  the  prototype  and  a  new  executable  generated.  This  process 
can  be  repeated  until  the  prototype  meets  all  of  the  users  needs. 
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B.     USING  REUSABLE  COMPONENTS  IN  CAPS 

To  achieve  maximum  benefit  as  a  rapid  prototyping  system  it  is  necessary  for  CAPS 
to  achieve  a  high  rate  of  component  reuse  in  the  implementation  of  leaf  operators.  The 
software  base  described  in  this  thesis  has  been  designed  to  support  this  goal. 

After  the  user  has  specified  a  needed  operator  or  type,  they  have  the  opportunity  to 
use  that  specification  as  a  query  to  the  software  base  to  look  for  a  potential  match.  If  one 
is  found  it  can  be  included  in  the  prototype.  If  not  the  user  has  the  choice  of 
decomposing  the  component  further  or  implementing  the  component  manually. 

In  addition  to  automatic  component  retrieval  facilities,  the  software  base  contains  a 
keyword  browsing  feature  to  assist  the  designer  in  finding  components  in  the  software 
base  to  be  used  for  manual  implementation. 

PSDL  "was  designed  to  serve  as  an  executable  prototyping  language  at  the 
specification  and  design  level."  [Ref  17,  p26]  The  grammar  for  the  PSDL  interface 
specification  is  not  biased  toward  a  particular  programming  language  but  rather  is 
general  enough  to  allow  it  to  be  extended  to  support  any  programming  language. 

Because  of  this  general  design  it  is  necessary  to  add  some  pre-defined  abstract  data 
types  with  specific  interpretations  related  to  software  reuse  to  PSDL  (not  the  grammar 
itself),  in  order  to  adequately  specify  a  component  for  automated  retrieval.  These 
extensions  include  a  methodology  for  describing  type  inheritance  and  distinguishing 
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between  different  types  of  generic  parameters.  A  description  of  how  PSDL  was  extended 
to  support  reusable  components  in  Ada  is  included  in  Appendix  A. 
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IV.  SOFTWARE  BASE  IMPLEMENTATION 

A.     REQUIREMENTS 

The  CAPS  software  base  must  perform  four  basic  tasks  [Ref  20].  Figure  3  depicts 
these  tasks.  Text  file  storage  is  a  mechanism  to  store  and  retrieve  portions  of  a  reusable 
component.  Component  browsing  refers  to  giving  the  user  the  ability  to  locate  and  view 
components  in  a  manner  other  than  by  PSDL  query.  The  ability  to  query  the  software 
base  by  PSDL  specification  gives  the  system  the  retrieval  characteristics  desired  in  this 
prototyping  system.  Component  integration  into  CAPS  is  required  once  a  reusable 
component  is  located  so  that  the  execution  support  system  can  produce  an  executable 
prototype. 


CAPS 


Figure  3  -  Requirements  for  CAPS  Software  Base 
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Due  to  the  complexity  of  storing  variable  length  source  code  and  querying  the 
software  base  using  PSDL  specifications,  a  powerf"ul  DBMS  system  is  necessary  [Ref 
21].  CAPS  is  designed  to  exist  in  a  multi-user  networked  environment,  therefore  the 
DBMS  system  also  needs  to  support  multi-user,  networked  access  to  its  data. 

Section  B  of  this  chapter  is  a  description  of  the  DBMS  system  that  was  used  to 
implement  the  CAPS  software  base.  Section  C  describes  the  segregation  of  reusable 
components  into  language  domain  areas.  Section  D  is  a  description  of  the  method  used 
to  store  text  files  in  the  database.  Section  E  is  a  description  of  the  implementation  of  the 
software  base  browsing  facilities.  Sections  F  through  H  describe  the  implementation  of 
the  query  by  specification  function  of  the  software  base.  Section  I  discusses  the 
requirements  for  integration  of  components  into  CAPS  prototypes.  Section  J  describes  a 
prototype  graphical  user  interface  for  the  CAPS  software  base. 

B.      ONTOS  DATABASE  MANAGEMENT  SYSTEM 

The  Ontos  database  management  system  [Ref  22]  is  one  of  a  growing  number  of 
Object-Oriented  Database  Management  Systems  (OODBMS).  It  was  selected  for  use  in 
the  software  base  project  because  it  has  sufficient  capabilities  to  handle  the  requirements 
for  the  implementation  of  an  advanced  reusable  software  component  library. 

The  Ontos  OODBMS  is  not  constrained  by  a  particular  data  model  such  as 
relational  or  hierarchical  systems,  but  rather  allows  the  database  developer  the  ability  to 
make   any  data  object  persist  past  the  execution   of  the  program  that  created  it. 
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Persistence  of  objects  is  accomplished  by  assigning  each  object  a  system  generated 
unique  identifier  (UID),  and  providing  methods  to  store  and  retrieve  each  type  of  object. 

The  Ontos  system  uses  C++  [Ref  23]  as  its  implementation  and  application 
language.  The  database  developer  defines  the  database  schema  using  C++  class 
definitions  and  the  Ontos  Classify  utility.  These  classes  are  then  implemented  using 
standard  C++. 

In  Ontos  all  that  is  needed  to  make  an  instance  of  a  particular  class  persistent  is  to 
have  that  class  inherit  from  the  Ontos-defmed  class  Object.  The  Object  class  constructor 
assigns  each  object  a  UID.  The  methods  necessary  for  reading  and  writing  instances  of  a 
persistent  class  are  defined  by  the  Object  class,  and  thus  inherited  by  all  instances  of 
persistent  classes.  The  reading  and  writing  of  persistent  objects  is  transparent  to  the 
application. 

Ontos  includes  a  set  of  persistent  aggregate  classes  in  order  to  efficiently  handle 
collections  of  persistent  objects.  These  aggregate  classes  include  List,  Set,  Array,  and 
Dictionary. 

The  List  class  provides  functionality  analogous  to  a  linked  list  data  structure.  The 
Set  class  implements  the  standard  concept  of  a  set  and  its  associated  operations.  The 
Array  class  implements  the  programing  language  concept  of  a  dynamically  sizable  array 
structure. 

The  Dictionary  class  is  the  most  robust  of  all  Ontos  aggregate  classes.  It  is  a  keyed 
data  structure  that  can  be  ordered  or  unordered.  For  every  entry  in  a  Dictionary  there  are 
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two  attributes  stored,  the  Tag  and  the  Element.  The  Tag  is  used  for  indexed  look  up  and 
the  Element  holds  the  desired  data.  Dictionaries  can  be  defined  with  or  without  duplicate 
Tags  being  allowed.  The  implementation  of  these  structures  is  very  efficient. 
Dictionaries  that  are  unordered  and  do  not  allow  duplicates  are  implemented  via  hash 
tables.  All  other  Dictionaries  are  implemented  as  B-tree's.  Figure  4  shows  the 
inheritance  relationship  between  the  pre-defined  Ontos  aggregate  classes. 
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Figure  4  -  Ontos  Aggregate  Inheritance  Structure 

Using  aggregate  classes  the  designer  can  define  a  database  architecture  that  best 
suits  the  needs  of  the  application  rather  than  modifying  the  application's  structiu-e  to  fit  a 
particular  database  model.     Using  the  transparent  referencing  of  the  database  and 
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aggregate  data  structures,  the  developer  designs  the  application  as  though  all  data  is 
immediately  available  when  referenced  in  a  program. 

While  this  type  of  DBMS  may  be  difficult  to  use  where  general  ad-hoc  query 
capabilities  are  desired,  it  is  ideal  for  the  development  of  software  tools  where  the  nature 
of  the  queries  to  be  issued  are  known  well  in  advance  and  the  database  schema  must  be 
designed  to  support  them  efficiently. 

C.     SEGREGATION  OF  REUSABLE  COMPONENT  DOMAINS 

The  CAPS  software  base  is  designed  as  a  general  purpose  tool  capable  of  storing 
components  implemented  in  many  programming  languages.  Because  of  differences  in 
the  capabilities  of  each  programing  language  there  are  differences  in  the  way  the 
pre-defined  abstract  data  types  used  in  PSDL  to  specify  components  are  interpreted  by 
the  software  base.  An  example  of  this  is  that  the  char  type  in  C++  is  a  subset  of  the  type 
int  while  in  Ada  character  is  a  system  defined  enumerated  type.  These  differences  in  the 
interpretation  of  PSDL  specifications  require  that  all  components  of  a  particular 
implementation  language  be  considered  in  a  unique  domain. 

It  is  also  possible  to  create  multiple  component  domains  for  a  given  implementation 
language.  This  allows  segregation  of  components  into  major  problem  areas  such  as 
information  systems  and  control  systems. 

Each  domain  in  the  software  base  is  referred  to  as  a  library  and  is  an  instance  of  the 
class  SB_LIBRARY.  The  class  SB_LIBRARY  inherits  from  the  Ontos  class  Object  and 
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thus  its  members  are  persistent  objects.  Each  instance  of  SB_LIBRARY  is  composed  of 
five  parts:  a  component  dictionary,  a  keyword  library,  an  operator  hbrary,  an  abstract 
data  type  library,  and  a  recognized  type  matrix. 

The  component  dictionary  is  used  to  ensure  that  dupUcate  component  names  are  not 
used  within  a  particular  library.  The  keyword  library  provides  the  ability  to  formulate 
and  process  keyword  queries  on  the  domain  library.  The  operator  and  abstract  data  type 
libraries  are  used  for  the  query  by  PSDL  specification  and  are  discussed  in  more  detail  in 
sections  F.2  and  F.3.  The  recognized  type  matrix  contains  the  type  name  matching 
information  for  this  library  domain  and  is  discussed  in  section  G. 

The  specification  and  implementation  for  the  class  SB_LIBRARY  are  in  Appendix 
B.  Figure  5  is  an  attribute  diagram  for  the  class  SB_LIBRARY.  The  symbols  used  in 
this  attribute  diagram  are  the  same  as  those  used  in  Entity  /  Relationship  Diagrams. 
Single  ovals  represent  attributes  of  an  object.  Concentric  ovals  indicate  a  multi-valued 
attribute  (Ontos  Dictionary).  The  attributes  shown  for  multi-valued  objects  are  the 
contents  of  a  single  instance  contained  in  that  multi-valued  object.  Underlined  attributes 
are  the  key  or  tag  field  of  a  multi-valued  attribute  (Ontos  Dictionary). 

D.     STORAGE  OF  UNCONSTRAINED  TEXT  OBJECTS 

In  a  typical  development  environment,  program  source  files  are  stored  in  the 
operating  system's  directory  structure  as  text  files.  This  is  an  effective  method  for  storing 
source  code  for  a  small  number  (  <  100)  of  software  components.    As  the  number  of 
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components  increases  however,  this  method  becomes  unacceptable.  This  is  because  the 
burden  for  maintaining  the  integrity  of  the  files  is  placed  on  the  users  with  litde  or  no 
automated  assistance. 
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FIGURE  5  -  LIBRARY  ATTRIBUTE  DIAGRAM 

Because  of  the  anticipated  size  of  the  CAPS  software  base  the  decision  was  made  to 
encapsulate  all  of  the  component  text  inside  of  the  software  base  itself  rather  than  using 
the  operating  system's  file  structure. 

For  each  component  in  the  CAPS  software  base  there  are  six  text  files  that  must  be 
stored.  These  files  are  the  PSDL  specification  source  code,  the  implementation  language 
specificadon,  and  the  implementation  body,  the  informal  description,  the  axiomatic 
specifiction,  and  a  normalized  version  of  the  axiomatic  specification. 

In  order  to  store  these  text  attributes  it  was  necessary  to  design  a  persistent  class  for 
Ontos  that  would  allow  storage  and  retrieval  of  variable  length  text  strings  in  an  efficient 
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manner.  The  software  base  class  SB_TEXT_OBJECT  was  developed  to  perform  this 
function. 

The  SB_TEXT_OBJECT  class  supports  the  creation  of  persistent  text  objects  and 
appends  to  these  objects  C++  character  strings  {char  *)  or  a  C++  input  stream 
(ifstream&).  For  output,  an  instance  of  the  class  SB_TEXT_OBJECT  can  output  its  text 
via  a  C++  character  string  {char  *)  or  to  an  output  stream  {ofstream&). 

The  class  SB_TEXT_OBJECT  is  a  child  of  the  Ontos  class  Object  and  thus  has  all 
of  the  Ontos  persistent  methods  for  storage  to  and  retrieval  from  the  software  base. 
Instances  of  the  SB_TEXT_OBJECT  class  can  be  used  as  attributes  of  each  component 
in  the  software  base  to  store  the  PSDL  and  implementation  source  code.  The  full 
definition  and  implementation  of  the  class  SB_TEXT_OBJECT  is  given  in  Appendix  B. 

E.     BROWSING  THE  SOFTWARE  BASE 

Although  browsing  by  component  name  and  keyword  browsing  are  not  the 
preferred  methods  for  finding  reusable  components  in  a  large  software  base,  they  are  a 
necessary  feature  of  any  software  collection.  These  types  of  features  are  required  to 
allow  users  to  familiarize  themselves  with  the  components  in  the  software  base  as  well  as 
to  allow  the  software  base  administrators  to  maintain  them.  Due  to  this  need  the  software 
base  was  designed  and  implemented  to  support  both  keyword  queries  and  named  look  up. 
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1.  Named  Look  Up  Of  Components 

PSDL  has  only  two  types  of  software  components:  abstract  data  types  and 
operators.  Each  software  base  domain  library  has  been  divided  into  these  disjoint 
categories  of  components.  For  browsing  purposes  the  software  base  provides  a  complete 
list  of  either  all  abstract  data  types,  all  operators,  or  all  components  in  a  particular  library. 
These  lists  are  in  alphabetical  order  and  are  used  to  support  for  named  look  up  of 
individual  components. 

2.  Keyword  Querying 

Each  software  base  library  includes  a  keyword  library  for  handling  keyword 
access  to  its  components.  A  keyword  library  is  an  instance  of  the  class 
SB_KEYWORD_LIBRARY.  The  class  SB_KEYWORD_LIBRARY  has  been  designed 
to  allow  the  keyword  attribute  of  PSDL  to  form  a  keyword  structured  method  of 
browsing  the  software  base. 

An  instance  of  SB_KEYWORD_LIBRARY  provides  a  method  for  listing  all 
keywords  used  in  the  library.  From  this  list  a  keyword  query  can  be  formulated. 

The  result  of  a  keyword  query  is  a  list  of  those  components  that  possess  one  or 
more  of  the  query  keywords.  The  list  is  ordered  with  those  components  that  satisfy  the 
most  query  keywords  coming  first.  Figure  6  graphically  represents  the  keyword  query 
process  for  a  query  defined  by  keywords  A,B,  and  C. 

The  result  of  the  query  shown  in  Figure  6  will  follow  the  following  format: 

L    All  components  in  area  1  will  be  listed  first  (since  these  components  contain  all 
keywords  in  the  query). 
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2.  The  next  components  in  the  list  will  be  those  in  areas  2,  3,  and  4. 

3.  The  last  components  listed  will  be  those  in  areas  5,  6,  and  7. 

4.  Those  components  in  area  8  will  not  be  included  in  the  list  since  they  do  not 
contain  any  of  the  keywords  in  the  query. 


Fiaure  6  -  Venn  Diaaram  of  Keyword  Query 

The  class  SB_KEYWORD_LIBRARY  is  a  Dictionary  with  individual  keywords  as 
the  Dictionary  tags.  Each  tag  is  associated  with  a  separate  Dictionary  that  contains  a  list 
of  components  that  contain  that  particular  keyword.  Figure  7  is  an  attribute  diagram  for 
the  class  SB  KEYWORD  LIBRARY. 
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Figure  7  -  Keyword  Library  E/R  Diagram 

F.      QUERY  BY  SPECIFICATION 

As  stated  previously,  the  implementation  method  that  was  chosen  for  the  CAPS 
software  base  is  to  store  components  in  a  database  and  use  PSDL  specifications  as  the 
basis  for  high  recall  queries.  Each  stored  component  consists  of  a  PSDL  specification,  an 
implementation  specification,  the  implementation  code,  and  a  normalized  version  of  the 
PSDL  specification.  The  syntax  and  semantics  of  the  PSDL  specification  will  be  used  to 
direct  the  search  for  a  component. 

Figures  8  and  9  summarize  the  steps  necessary  to  store  components  in  the  software 
base  and  to  retrieve  them  using  a  given  query  specification.  Components  to  be  stored 
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must  first  pass  through  syntactic  and  semantic  normalization  (see  Figure  8).  The 
normalization  processes  transform  the  component's  PSDL  specification  to  facilitate  later 
matching  [Ref  24].  Syntactic  normalization  involves  primarily  format  changes  and 
statistical  calculations  while  semantic  normalization  requires  specification  expansion  and 
transformations. 
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Rgure  8  -  Component  Storage  Mechanism 

Figure  9  shows  the  general  process  for  component  retrieval.  A  query  for  a  library 
component  is  formed  by  constructing  the  PSDL  specification  for  the  desired  component. 
The  query  specification  is  syntactically  and  semantically  normalized  and  then  matched 
against  the  stored  specifications. 

Syntactic  matching  of  the  query  component  takes  place  before  semantic  matching. 
The  reason  for  this  is  that  syntactic  matching  is  faster  than  semantic  matching  and  will  be 
used  to  partition  the  software  base  quickly  in  order  to  narrow  the  list  of  possible 
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candidates  that  the  semantic  matching  algorithm  must  consider.  Semantic  matching  is 
time  consuming  and  must  be  applied  to  as  small  a  candidate  list  as  possible. 
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Figure  9  -  Query  By  PSDL  Specificatior^ 

Both  syntactic  and  semantic  normalization  and  matching  are  required  to  achieve  the 
best  performance  from  the  system.  The  main  benefit  of  syntactic  matching  is  speed 
whereas  the  advantage  of  semantic  matching  is  accuracy.  Accuracy  is  required  in  order  to 
reduce  the  number  of  reusable  components  that  a  designer  will  have  to  evaluate  before 
making  a  selection. 

Consider  the  example  of  trying  to  find  an  abstract  data  type  for  a  set.  The  Booch 
component  library  [Ref  25]  contains  34  different  variadons  for  implementing  a  set.  The 
specifications  for  these  set  packages  are  quite  similar  but  the  implementations  are  clearly 
different. 
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If  we  consider  generic  packages  to  perform  sorting,  the  Booch  library  contains  15. 
Nine  of  the  15  Ada  specifications  are  identical  with  the  exception  of  the  name  given  to 
the  package.  Clearly  we  cannot  rely  on  syntax  alone  to  provide  us  a  sufficiently  fine 
grained  search.  Semantics  are  also  required. 

A  semantic  process  alone  would  be  unacceptable  because  semantic  matching  would 
have  to  be  applied  to  every  software  base  component  causing  the  search  process  to  be 
impractically  time  consuming.  For  a  more  detailed  discussion  of  the  semantic  matching 
mechanisms  used  by  the  software  base  refer  to  [Ref  26]. 

The  details  of  the  syntactic  matching  mechanisms  employed  in  the  CAPS  software 
base  are  addressed  in  the  following  sections  of  this  thesis. 

1.      Syntactic  Matching 

The  purpose  of  syntactic  matching  is  to  rapidly  eliminate  from  consideration 
those  modules  in  the  software  base  that  cannot  match  the  query  specification's  interface. 
This  matching  process  uses  the  query  module's  PSDL  interface  specification  to  formulate 
a  query.  Once  those  modules  with  unsuitable  interfaces  have  been  removed,  only  a  small 
subset  of  the  software  base  needs  to  be  semantically  analyzed.  The  syntactic  matching 
process  reduces  the  number  of  candidate  modules  sufficiently  to  make  semantic  matching 
practical. 

Prior  to  discussing  the  design  of  the  software  base  architecture  needed  to 
support  syntactic  matching  it  is  necessary  to  rigorously  define  what  constitutes  a 
syntactic  match.  PSDL  allows  the  definition  of  both  type  and  operator  modules.  Since  a 
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type  module  is  a  superset  of  an  operator  module,  the  definition  of  an  operator  module 

match  will  be  given  in  detail  and  then  extended  for  use  with  type  modules. 

The  attributes  of  a  PSDL  specification  p  for  a  software  component  c  that  are 

important  to  the  syntactic  matching  process  are  the  following: 

1.    S(p)=  (  {In(t,n)  :  there  are  n>0  occurrences  of  type  t  as  input  parameters  to  c  }, 
{Out(t,m) :  there  are  m>0  occurrences  of  type  t  as  output  parameters  from  c  }, 
{E  :  E  is  an  exception  defined  in  c},{ 
St :  St  is  a  state  variable  in  c}  ) 

S(p)  is  the  interface  subset  of  the  PSDL  specification  for  module  c  and  is  the 
only  part  of  the  specification  that  pertains  to  the  syntactic  matching  process. 

Given  a  software  base  module  m,  and  a  query  module  q,  along  with  their 
respective  PSDL  interface  specifications  S(m)  and  S(q)  then  m  is  a  syntactic  match  for  q 
if  and  only  if  all  of  the  following  constraints  are  met: 

1.  3  f i :  S(q)  S(m)  3  [(f.  (In(t,n)q)  =  In(t',m),  (m=n  and  (t=t'  or  t'  is  a  generic  match 
of  t))  and  f,  is  bijective] 

2.  3  4  :  S(q)  S(m)  3  [(f^  (Out(t,n)q)  =  Out(t',m)„  (m=n  and  (t=t'  or  t'  is  a  generic 
match  of  t))  and  f„  is  injective] 

3.  if  (|{STq}|>0  then  |{STm}|>0)  else  (|{STq}|  =  |{STm}|=0) 

This  definition  of  a  syntactic  match  could  be  used  directly  to  determine  if  a 
software  base  component  could  match  a  query  specification's  interface  but  would  require 
the  system  to  check  every  component  in  the  software  base.  This  type  of  implementation 
would  be  very  inefficient.  A  better  strategy  involves  using  the  matching  rules  to  derive  a 
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set  of  module  attributes  that  can  be  used  to  rapidly  identify  and  reject  modules  with 

unsuitable  interfaces.  Some  examples  of  these  derived  attributes  include: 

1.  If  the  number  of  input  parameters  in  S(q)  is  not  equal  to  the  number  input 
parameters  in  S(m),  then  there  can  be  no  function  f^  to  satisfy  rule  1.  Therefore 
S(m)  can  be  eliminated  from  the  search. 

2.  If  the  number  of  output  parameters  in  S(q)  is  greater  than  the  number  of  output 
parameters  in  S(m),  then  there  can  be  no  function  f„  to  satisfy  rule  2.  Therefore 
S(m)  can  be  eliminated  from  the  search. 

3.  If  S(q)  has  state  variables  defined  (i.e.  q  defines  a  state  machine)  but  S(m)  has  no 
state  variables,  then  S(m)  can  be  eliminated  from  the  search. 

If  a  component  passes  these  tests,  it  does  not  mean  that  it  is  a  syntactic  match, 
a  failure  however,  does  eliminate  the  module  from  further  consideration  because  it 
cannot  be  a  syntactic  match.  These  attributes  are  derivable  from  the  PSDL  specification 
and  can  be  used  to  form  multi-attribute  keys.  These  keys  allow  a  rapid  reduction  in  the 
size  of  the  viable  subset  of  the  software  base  via  multi-attribute  queries  without  the  need 
to  attempt  to  idendfy  the  individual  mapping  functions  for  each  module.  For  those 
modules  that  are  selected  by  the  multi-attribute  query  additional  checks  can  be  made  to 
idendfy  components  that  cannot  meet  rules  1  and  2.  These  checks  form  a  filtering 
mechanism  that  removes  any  unsuitable  components  from  the  query  result. 

The  rules  for  the  syntactic  matching  of  type  modules  are  similar  to  those  for 
operator  modules  with  the  addidon  of  a  mapping  function  to  map  the  operators  of  S(q)  to 
the  operators  of  S(m)  and  an  additional  check  to  ensure  the  generic  parameter 
subsdtutions  used  for  this  mapping  function  are  consistent  for  all  operators  in  S(m). 
Muld- attribute  keys  can  be  formulated  that  incorporate  these  additional  requirements. 
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These  keys  can  then  be  used  for  the  initial  type  module  database  query  and  additional 
checks  only  applied  to  those  modules  that  are  selected  by  the  multi-attribute  query. 

Through  the  use  of  a  complex  aggregate  hierarchy,  the  software  base  can  be 
separated  into  disjoint  areas,  each  queriable  via  multi-attribute  keys. 
2.      Operator  Component  Library 

The  class  SB_OPERATOR_LIBRARY  is  structured  to  allow  a  multi-attribute 

query  to  be  performed  efficiently  on  the  following  attributes: 

1.  State_Flag 

2.  Number_of_Inputs 

3.  Number_of_Outputs 

4.  Number_of_Generic_Types  /  Number_of_Unrecognized_Types 

The  Number_of_Generic_Types  attribute  is  for  software  base  components  and 
Number_of_Unrecognized_Types  is  the  corresponding  attribute  for  query  components. 

In  order  for  a  software  base  operator  component  m  to  be  returned  from  the 

multi-attribute  query  for  component  q  it  must  satisfy  the  following  conditions: 

1.  State_Flag(m)  =  State_Flag(q) 

2.  Number_of_Inputs(m)  =  Number_of_Inputs(q) 

3.  Number_of_Outputs(m)  >=  Number_of_Outputs(q) 

4.  Number_of_Generic_Types  >=  Number_of_Unrecognized_Types(q) 

The  fourth  requirement  is  due  to  the  fact  that  if  the  software  base  library  does 
not  recognize  a  particular  type  in  the  query  specification  the  only  way  that  .type  could  be 
matched  is  via  a  generic  type. 
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The  result  of  this  query  is  a  set  of  software  base  components  that  are  potential 
syntactic  matches  of  the  query  specification.  At  this  point  additional  tests  (filters)  can  be 
applied  to  each  remaining  component  to  determine  if  it  should  be  passed  to  the  semantic 
matching  step.  Applying  these  filters  is  an  iterative  process  that  must  be  carried  out  on 
one  software  base  component  at  a  time. 

The  schema  for  the  class  SB_OPERATOR_LIBRARY  is  shown  in  figure  10. 
3.      Abstract  Data  Type  Library 

The  abstract  data  type  library  is  similar  to  the  operator  component  library.  It  is 
an  instance  of  the  class  SB_ADT_LIBRARY  and  uses  the  following  attributes  for  multi 

attribute  queries: 

1.  Number_of_ADTs 

2.  Total_Number_of_Inputs 

3.  Total_Number_of_Outputs 

4.  Total_Number_of_Generic_Types  /  Total_Number_of_Unrecognized_Types 

5.  Number_of_Operators 

In  order  for  a  software  base  operator  component  m  to  meet  an  attribute  query 

for  component  q  all  of  the  following  must  be  true: 

1.  Number_of_ADTs(m)  >=  Number_of_ADTs(q) 

2.  Total_Number_of_Inputs(m)  >=  Total_Total_Number_of_Inputs(q) 

3.  Total_Number_of_Outputs(m)  >=  Total_Number_of_Outputs(q) 

4.  Total_Number_of_Generic_Types(m)  >= 
Total_Number_of_Unrecognized_Types(q) 

5.  Number_of_Operators(m)  >=  Number_of_Operators(q) 
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The  rationale  behind  requirement  5  is  the  same  as  for  the  operator  query. 
Again  the  results  of  the  multi-attribute  query  is  a  set  of  type  components  that  are 
potential  maps  for  the  query  component.  The  schema  for  the  class  SB_ADT_LIBRARY 
is  shown  in  Figure  1 1 . 

G.     DATA  STREAM  TYPE  MATCHING 

One  of  the  critical  concepts  in  the  syntactic  matching  methodology  is  the 
determination  if  a  library  component  stream  data  type  is  a  match  of  a  query  component 
stream  data  type.  The  criteria  for  making  this  decision  differs  for  each  implementation 
language  because  they  each  have  their  own  set  of  predefined  data  types  and  inheritance 
techniques. 

In  order  to  identify  if  one  stream  type  can  map  into  another  stream  type,  each 
library  contains  an  instance  of  the  class  SB_RECOGNIZED_TYPES.  This  class 
contains  the  names  of  all  of  the  type  identifiers  the  library  recognizes  along  with  a  matrix 
for  determining  whether  a  given  type  can  map  into  another  type  that  the  system 
recognizes.  This  matrix  represents  all  of  the  subtype  relationships  among  the  recognized 
types. 

The  direction  of  the  mapping  is  important  as  illustrated  by  the  following 
example.  In  Ada  the  subtype  Natural  is  defined  as  the  range  from  O..Integer'Max  and 
Positive  is  defined  as  L.Integer'Max. 
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A  Positive  data  type  in  an  input  stream  of  a  query  can  map  into  a  Natural  in  an 
input  stream  of  a  stored  component  since  all  of  the  Positive's  allowed  values  are  also 
valid  Natural  values.  A  Natural  however  cannot  map  into  a  Positive  because  0  is  not  a 
valid  Positive  number.  The  situation  is  reversed  for  output  streams. 

The  SB_RECOGNIZED_TYPES  class  also  contains  information  about  how 

some  standard  programing  language  concepts  will  be  identified.  These  include: 

1.  Whether  or  not  the  language  is  case  sensitive. 

2.  How  type  inheritance  will  be  identified. 

3.  The  base  type  name  for  generic  types,  values,  and  procedures. 

4.  The  base  type  name  for  abstract  data  types. 

5.  How  array  types  will  be  specified  (including  the  index  type  and  element  type). 

An  example  of  the  type  matrix  for  Ada  and  its  use  is  presented  in  Appendix  A. 
H.     ABSTRACT  REPRESENTATION  OF  SOFTWARE  BASE  COMPONENTS 

The  class  SB_COMPONENT  is  an  abstract  base  class  for  storing  the  attributes  of 
software  base  components.  It  includes  attributes  that  are  common  to  all  software 
components.  The  classes  SB_ADT_COMPONENT  and  SB_OPERATOR  inherit  from 
SB_COMPONENT  and  include  additional  attributes  that  are  specific  to  each. 

Two        classes         inherit        from        SB_OPERATOR.  These        are 

SB_OPERATOR_COMPONENT  and  SB_ADT_OPERATOR.  These  two  classes  differ 
only  in  the  methods  for  handling  generic  and  recognized  types. 

Figure  12  shows  the  inheritance  hierarchy  used  in  defining  the  persistent  classes  for 
software     base     components.         Figure      13     is     the     schema     for     the     class 
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SB_ADT_COMPONENT  and  Figure  14  is  the  schema  for  the  class  SB_OPERATOR 
respectively. 


SB.COMPONENT 

y          ^ 

\ 

^    COMPONENT  , 

SB.OPERATOR 

/ 

\ 

SBJ\DT 
,    COMPONENT  , 

SB_OPERArOR 
,    COMPONENT  , 

Figure  12  -  SOFTWARE  BASE  COMPONENT  INHERnANCE 

Each  of  these  schemas  contain  some  derived  attributes.  These  derived  attributes  are 
stored  in  the  software  base  to  prevent  them  from  being  recomputed  each  time  they  are 
needed. 

A  parser  for  the  specification  subset  of  PSDL  was  developed  using  lex  [Ref  271  and 
yacc  [Ref  28]  in  order  to  construct  instances  of  the  SB_ADT_COMPONENT  and 
SB_OPERATOR_COMPONENT  classes.  For  this  parser  to  take  the  appropriate 
semantic  actions,  language  preserving  transformations  of  the  original  PSDL  grammar 
were  necessary.  These  transformations  consist  of  the  addition  of  non-terminals  and 
productions  to  allow  appropriate  semantic  actions  to  be  carried  out. 
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Figure  13  -  ADT  Component  Attribute  Diagram 

The  source  code  input  to  lex  and  yacc  that  was  used  to  generate  the  parser  is 
included  in  Appendix  C. 

I.      INTEGRATING  RETRIEVED  COMPONENTS  INTO  CAPS 

The  goal  of  the  software  base  is  to  provide  to  CAPS  a  component  implementation 
that  is  an  exact  match  for  a  query  specification  and  meets  the  needs  of  the  CAPS 
execution  support  system.  To  accomplish  this,  once  a  reusable  software  component  has 
been  located  it  must  be  transformed  into  a  form  that  matches  all  of  these  requirements. 
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This  transformation  involves  changing  parameter,  type,  and  operator  names  of  the  library 
component  to  match  those  of  the  query  specification  as  well  as  instantiating  any  generics. 


Figure  14  -  Operator  Component  Attribute  Diagram 

Rather  than  modifying  the  library  component  itself,  the  library  unit  can  be  used  as  a 
basis  for  the  creation  of  a  separate  component  that  meets  the  needs  of  the  query 
component.  This  is  accomplished  via  inheritance  or  using  the  with  statement  in  Ada. 

The  software  base  cannot  directly  generate  implementation  code  because  it  is  not 

language  specific.     It  can  generate  an  abstract  representation  of  how  the  library 

component  satisfies  the  syntax  and  semantics  of  a  query  component.  This  representation 

can  then  be  used  by  a  translation  tool  specific  to  a  particular  implementation  language  to 

generate  the  implementation  code.  Figure  15  shows  the  details  of  the  integration  process. 
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Figure  15  -  Integration  of  Components  Into  CAPS 

This  methcxl  of  component  integration  is  preferable  since  additional  implementation 
languages  can  be  added  to  the  software  base  as  long  as  a  translation  tool  to  generate  the 
final  implementation  is  provided.  Appendix  D  provides  a  specification  for  a  proposed 
mapping  grammar  that  can  be  generated  by  the  semantic  matching  system  and  used  for 
generation  of  component  implementation.  Appendix  D  also  gives  an  example  of  this 
process  to  generate  an  implementation  for  an  abstract  integer  set  using  a  generic  set 
package. 
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J.      SOFTWARE  BASE  INTERFACE 

CAPS  itself  is  a  set  of  individual  tools.  These  tools  are  linked  together  with  a  tool 
interface.  One  of  the  CAPS  tools  is  a  graphical  user  interface.  The  user  graphical 
interface  gains  access  to  all  of  the  other  tools  in  the  system  via  the  tools  interface.  The 
reason  for  having  all  graphical  user  interface  functions  in  a  single  tool  is  to  simplify 
future  enhancements  to  the  interface. 

Based  on  this  structure,  each  tool  in  the  CAPS  system  provides  a  command  line 
interface  that  is  used  by  the  tool  interface  to  invoke  the  tool.  The  software  base  has  been 
designed  with  an  interface  that  meets  this  requirement. 

1.      Command  Line  Interface 

The  software  base  implementation  provides  a  command  line  interface.  This 
type  of  interface  supports  easy  integration  of  the  software  base  functions  into  the  CAPS 
system.    The  functions  provided  by  the  software  base  command  line  interface  are  the 

following: 

1 .  Make  a  new  domain  library. 

2.  Add  a  new  software  base  component. 

3.  Update  a  software  base  component. 

4.  Delete  a  software  base  component 

5.  Generate  a  list  of  components  in  a  library 

6.  Generate  a  list  of  operators  in  a  library 

7.  Generate  a  list  of  types  in  a  library 

8.  Generate  list  of  keywords  in  a  library 
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9.  Keyword  query 

10.  Component  query 

11.  View  a  component's  source  files 

12.  Output  diagnostic  information  (for  testing  and  maintenance  only) 

13.  Generate  a  component's  mapping  for  a  given  query 

A  function  to  generate  a  mapping  for  a  query  has  not  been  implemented  in  the 
current  version  of  the  software  base.  For  details  on  the  exact  syntax  of  these  commands 
refer  to  Appendix  E. 

2.      Graphical  User  Interface 

In  order  to  demonstrate  the  capabilities  of  the  software  base  system  and  the 
command  line  interface,  a  graphical  user  interface  was  prototyped  for  the  software  base 
system  using  the  Interviews  3.0b  [Ref  29]  interface  builder  application  and  the 
Interviews  3.0b  object  library.  This  interface  is  not  intended  to  be  full  functioning  but 
rather  an  example  of  the  functionality  of  the  software  base  system. 

Appendix  F  is  the  user's  manual  for  the  prototype  software  base  graphical 
interface.  Appendix  G  is  the  source  code  for  this  graphical  user  interface. 
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V.  CONCLUSIONS  AND  FUTURE  RESEARCH 

The  software  base  system  described  in  this  thesis  has  been  implemented.  It  has  not 
yet  been  integrated  into  CAPS.  Due  to  the  complexity  of  the  software  base  system,  there 
are  many  areas  that  can  be  improved  by  future  research.  This  chapter  identifies  those 
areas  that  need  improvements  and  provides  recommendations  where  possible. 

A.     ADDING  COMPONENTS  TO  THE  SOFTWARE  BASE 

Reusable  components  are  currently  being  selected  and  tested  for  possible  inclusion 
into  the  software  base.  This  is  a  labor  intensive  activity  for  several  reasons. 

1.  Component  Testing 

Any  component  that  is  added  to  the  software  base  must  be  adequately  tested  to 
ensure  that  it  fully  meets  its  specification.  Testing  software  components  continues  to  be 
a  difficult  area  in  software  engineering  research  and  further  advances  in  testing  are 
necessary  to  make  reusable  component  libraries  more  successful.  Some  relevant  research 
in  this  direction  is  provided  in  [Ref  30]. 

2.  Component  Implementation  Restrictions 

The  CAPS  system  restricts  the  nature  of  the  components  used  in  prototypes. 
The  first  restriction  is  that  implementations  of  OPERATORS  must  be  procedures  rather 
than  functions.  The  second  restriction  is  that  "in  out"  parameters  are  not  allowed.  These 
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restrictions  necessitate  the  modification  of  most  existing  components  that  are  candidates 
for  reuse.  This  includes  sources  such  as  the  Booch  library,  the  Ada  software  repository, 
the  RAPED  project,  the  CAMPS  project  etc.  One  method  of  overcoming  this  difficulty  is 
automate  the  modification  process  using  a  translation  tool. 

3.      Writing  Formal  Specifications  Of  Existing  Components 

CAPS  and  the  software  base  system  require  that  reusable  components  be 
specified  in  two  additional  specification  languages.  These  are  PSDL  and  the  OBJ3  used 
for  semantic  matching.  Writing  these  specifications  is  a  time  consuming  process  that 
could  be  partially  automated  by  using  the  implementation  language's  specification  to 
generate  skeletons  of  PSDL  and  OBJ3  interface  specifications. 

B.      DELETING  AND  UPDATING  COMPONENTS 

Updating  or  deleting  components  from  the  software  base  could  cause  system 
inconsistencies.  These  inconsistencies  take  two  forms.  The  first  involves  other  software 
base  components  that  may  depend  on  the  deleted  or  updated  component.  The  second  is 
that  previously  generated  prototypes  may  depend  on  the  component  that  has  been  deleted 
or  modified.  The  current  implementation  of  the  software  base  relies  on  the  software  base 
administrator  to  ensure  that  these  conditions  do  not  arise.  This  process  should  be 
automated  to  ensure  that  the  inconsistencies  do  not  occur. 
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To  correct  the  first  problem  it  is  necessary  to  add  dependency  relationships  between 
software  base  components  and  the  software  base.  This  would  allow  the  software  base  to 
ensure  that  all  updates  and  deletions  do  not  create  inconsistencies. 

To  correct  the  second  problem  it  is  necessary  to  save  the  source  code  for  all  deleted 
or  updated  components  external  to  the  software  base.  This  could  be  accomplished 
through  the  use  of  a  version  control  system  such  as  SCCS. 

C.  EFFICIENCY 

The  most  time  consuming  portion  of  a  software  base  query  is  semantic  matching. 
The  easiest  way  to  improve  overall  query  performance  is  to  reduce  the  number  of 
components  that  must  be  analyzed  by  the  semantic  matching  system. 

As  more  components  are  added  to  the  software  base,  experience  will  be  gained  on 
the  performance  of  the  syntactic  matching  system.  This  experience  will  make  it  possible 
to  identify  additional  attributes  for  the  multi-attribute  queries  and  to  add  more  detail  to 
the  post-query  filtering  routines.  These  additions  will  reduce  the  number  of  candidates 
passed  to  the  semantic  matching  system  and  thus  increase  overall  query  performance. 

D.  SOFTWARE  BASE  SYSTEM  IMPLEMENTATION  LANGUAGE 

The  long  term  goal  for  CAPS  is  that  it  be  entirely  implemented  in  Ada.  A  major 
portion  of  the  software  base  system  is  currently  implemented  in  C-I-+.  C-i-i-  was  used 
because  there  does  not  exist  a  tool  with  the  capabilities  of  Ontos  that  interfaces  directly  to 
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Ada.  As  more  robust  database  tools  become  available  for  Ada,  it  will  be  possible  to 
re-implement  the  software  base  tool  fully  in  Ada.  A  DBMS  of  this  type  is  currently 
being  developed  which  could  be  used  for  future  versions  of  the  software  base  [Ref  31]. 
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APPENDIX  A  -  USING  PSDL  TO  SPECIFY 
REUSABLE  COMPONENTS 

The  ability  to  accurately  specify  reusable  components  with  PSDL  is  critical  to  the 
success  of  the  software  base.  Due  to  the  general  nature  of  the  PSDL  interface 
specification  its  use  for  specifying  specific  programming  languages  must  be  refined.  The 
software  base  is  designed  to  recognize  the  enumeration  of  PSDL  for  any  language  in  the 
following  areas. 

A.     STRUCTURE  OF  EXTENSIONS  TO  PSDL  INTERFACE  SEMANTICS 

1.  Generic  Parameters 

In  languages  that  support  the  concept  of  generic  units,  such  as  Ada,  or  in 
macro  expansion  facilities,  there  are  three  categories  of  generic  parameters.  These  are 
generic  types,  generic  values,  or  generic  program  units. 

The  generic  specification  structure  in  PSDL  must  be  extended  to  identify  a 
particular  generic  parameter  as  either  a  type,  value,  or  program  unit.  This  is 
accomplished  in  the  software  base  by  defining  of  three  identifiers  that  have  special 
significance  in  the  generic  structure. 

2.  Abstract  Data  Types 

There  are  cases  where  in  the  definition  of  one  abstract  data  type  it  is  necessary 
to  define  others  as  well.  Programing  languages  such  as  Ada  allow  an  individual  package 
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to  define  an  unlimited  number  of  abstract  data  types.  PSDL  TYPE'S  can  specify  muldple 
abstract  data  type  structures  through  the  definition  of  an  identifier  that  has  a  special 
meaning  in  the  type  declaration  structure  of  a  PSDL  TYPE. 

3.  Type  Inheritance 

Most  modem  programming  languages  support  user  defined  types.  In  many 
cases  user  defined  types  actually  inherit  from  a  predefined  language  type  and  the  new 
type  retains  compatibility  with  its  parent.  An  example  of  this  is  the  subtype  construct  in 
Ada. 

The  software  base  needs  to  be  able  to  identify  when  a  user  defined  type  is 
compatible  with  a  predefined  type  or  another  user  defined  type.  One  way  of  achieving 
this  is  to  allow  the  ability  to  specify  from  what  base  type  a  user  defined  type  inherits. 
This  inheritance  identification  is  achieved  in  the  software  base  through  the  definition  of 
an  identifier  that  has  special  meaning  in  the  type  name  construct  of  PSDL. 

4.  The  Array  Abstract  Data  Type 

The  concept  of  an  array  of  data  is  present  in  almost  all  programing  languages. 
Because  of  this,  the  decision  was  made  to  add  the  definition  of  special  identifiers  in 
PSDL  to  allow  the  software  base  to  decide  when  two  array  types  are  compatible.  The 
identifiers  are  used  to  idendfy  the  type  of  the  index  of  the  array  as  well  as  the  type  of  the 
element  of  the  array. 
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B.      EXAMPLE  DEFINITIONS  FOR  ADA 

For  a  particular  language  library  the  definitions  of  the  special  identifiers  are 
contained  in  the  rule  file  used  when  the  library  is  created.  The  rule  file  defined  for  Ada 
follows  this  description  of  a  rule  file's  contents.  The  first  field  in  the  rule  file  indicates  if 
the  language  being  defined  is  case  sensitive  (1)  or  not  (0). 

The  next  six  rules  define  the  special  identifiers  for  the  following  concepts. 

1.  Type  that  must  be  matched  generically 

2.  Inheritance 

3.  Generic  type 

4.  Generic  program  unit 

5.  Generic  value 

6.  Abstract  data  type 

7.  Array 

8.  Array  index 

9.  Array  element 

These  identifiers  must  all  be  defined  and  in  this  order. 

Following  these  identifiers  is  a  list  of  type  names  that  the  designer  wants  the 
software  base  library  to  recognize  in  this  library.  The  list  is  terminated  with  a  "~". 

Following  the  ~  is  a  matrix  of  boolean  (0  or  1)  values  concerning  type 
compatibility.  This  matrix  is  constructed  by  listing  all  identifiers  above  the  ~  to  identify 
the  rows  and  columns  of  the  matrix.  A  value  of  1  at  (row  x,  column  y)  indicates  that 
type  X  can  map  into  the  type  y. 
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C.     ADA  RULE  FILE 


0 

UNRECOGNIZED 

BASE_TYPE 

GENERIC_TYPE 

GENERIC.PROCEDURE 

GENERIC_VALUE 

ADT 

ARRAY 

ARRAY_INDEX 

ARRAY_ELEMENT 

DISCRETE 

RANGE 

DIGIT 

DELTA 

PRIVATE 

ENUMERATION 

INTEGER 

NATURAL 

POSITIVE 

BOOLEAN 

FLOAT 

FIXED 

CHARACTER 

STRING 

ACCESS 

000000000000010000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000100000010000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 
000000000000000000000000 

0000000000 
0100000000 
01  10000000 
0  1  1  10  0  0  0  0  0 
0000100000 
000000000001010000010000 


0000000001 

10  0  1 

0000000001 

10  0  1 

0000000001 

10  0  1 

0000000001 

10  0  1 

0000000001 

0  0  0  1 
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0000000000001  10000001000 
000000000100010000000100 
000000010000010000000010 
000000000000000000000001 


D.     EXAMPLE  PSDL  SPECIFICATIONS  USING  ADA  RULES. 


Bubble  Sort  Operator 


PSDL 


operator  bubble_sort 
specification 
generic 

array _type  :  GENER1C_TYPE[ 

BASE_TYPE  :  ARRAY  [ 

ELEMENT  :  PRIVATE,  INDEX  :  DISCRETE]], 
less_than  :  GENERIC_PROCEDURE 
input 

the_array  :  array  _type 
output 

the_array  :  array_type 
keywords  array ,sort,bubble 
description  {  Booch  library  bubble  sort  ) 
end 


F.      ADA  SPECIFICATION 


--  (C)  Copyright  1986,  1987,  1988, 1989,  1990  Grady  Booch 

-  All  Rights  Reserved 

--Serial  Number  0100219 

"Restricted  Rights  Legend" 

-  Use,  duplication,  or  disclosure  is  subject  to 

-  restrictions  as  set  forth  in  subdivision  (b)  (3)  (ii) 

-  of  the  rights  in  Technical  Data  and  Computer 

-  Software  Clause  of  FAR  52.227-7013.  Manufacturer: 

-  Wizard  software,  2171  S.  Parfet  Court,  Lakewood, 
"  Colorado  80227  (1-303-987-1874) 
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generic 

type  Item  is  private; 

type  Index  is  (<>); 

type  Items  is  array(Index  range  <>)  of  Item; 

with  function  "<"  (Left  :  in  Item; 

Right :  in  Item)  return  Boolean; 
package  Bubble_Sort  is 

procedure  Sort  (The_Items  :  in  out  Items); 

end  Bubble_Sort; 
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1.      Set  Abstract  Data  Type 


G.     PSDL  SPECIFICATION  FOR  SB  SET  PKG 


type  sb_set_pkg 

specification 
generic 

t :  GENERIC_TYPE, 
block_size  :  GENERIC_VALUE, 
eq  :  GENERIC.PROCEDURE 

set :  ADT 

operator  empty 
specification 

output 

s :  set 
end 

operator  add 
specification 
input 

X  :  t, 
si :  set 
output 

so  :  set 
end 

operator  remove 
specification 
input 

X  :  t, 
si  :  set 
output 

so  :  set 
end 

operator  member 
specification 
input 

X  :  t, 
s  :  set 
output 

V  :  boolean 
end 

operator  union 
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specification 
input 

sl,s2  :  set 
output 

s3  :  set 
end 

operator  difference 
specification 
input 

sl,s2 :  set 
output 

s3  :  set 
end 

operator  intersection 
specification 
input 

sl,s2  :  set 
output 

s3  :  set 
end 

operator  size 
specification 

input 

s  :  set 

output 

V  :  natural 
end 

operator  equal 
specification 

input 

sl,s2  :  set 

output 

V  :  boolean 
end 

operator  subset 
specification 

input 

sl,s2  :  set 

output 

V  :  boolean 
end 

keywords  SET 

description  {  SET  ADT  WITH  OPERATIONS  FOR  EMPTY,  ADD,  SUBSET,  EQUAL 
end 
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H.     ADA  SPECIFICATION  FOR  SB  SET  PKG 


with  text_io;  use  texi_io; 

generic 

type  t  is  private; 

block_size:  in  natural:=128; 

with  procudure  eq(x,y:  in  t,  v  :  BOOLEAN); 
package  sb_set_pkg  is 

type  set  is  private; 

type  index_array  is  array(naiural  range  <>)  of  natural; 

procedure  empty(s:  out  set); 
procedure  add(x:  in  t;  si:  in  set,  so  :  out  set); 
procedure  remove(x:  in  t;  s:  in  out  set); 
procedure  member(x:  in  t;  s:  in  set,  v  :  boolean); 
procedure  union(sl,  s2:  in  set;  s3:  out  set); 
procedure  difference(sl,  s2:  in  set;  s3:  out  set); 
procedure  intersection(sl,  s2:  in  set;  s3:  out  set); 
procedure  size(s:  in  set,  v  :  out  natural); 
procedure  equal(sl,  s2:  in  set,  v  :  out  boolean); 
procedure  subset(sl,  s2:  in  set,  v  :  out  boolean); 

private 

type  link  is  access  set; 

type  elements_type  is  array(l..block_size)  of  t; 

type  set  is 

record 

size:  naiural:=0;  --The  size  of  the  set 

elements:  elemcnts_type;  -The  actual  elements  of  the  set 

next:  link:=null;  —The  next  node  in  the  list 
end  record; 
-Elemenis(l..min(size,block_size))  contains  data 

end  sb_set_pkg; 
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APPENDIX  B  -  C++  SOURCE  CODE  FOR 
SOFTWARE  BASE 

The  source  code  for  the  software  base  included  in  this  Appendix  was  formatted 
using  the  c++21atex  code  formatting  system  written  by  Norbert  Kiesel.  His  program  was 
modified  to  have  it  generate  output  that  conforms  to  the  requirements  of  the  Naval 
Postgraduate  School  thesis  format. 
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// 

//  CAPS  REUSABLE  COMPONENT  RETRIEVAL  SYSTEM  CLASS  DEFINITIONS 

11 

II  J.  K.  MCDOWELL  23  AUG  91 

II 

II 

// 

#include  <strecan.hxx> 
#include  <strstreain.hxx> 
extern  "C — " 

{ 

#include  <string.h> 
#include  <stdio.h> 
#include  <stdlib.h> 
#include  <ctype.h> 

} 


II- 

II 

II- 


#  include  <Dictionary .h> 

#  include  <Array.h> 

#  include  <List .h> 

#  include  <TRef  .h> 

#  include  <Type.h> 

#  include  <Database.h> 

#  include  <Directory.h> 

#  include  <GlobalEntities .h> 


// 

//  PRE-DECLARE  ALL  CLASSES  TO  AVOID  PROBLEMS  WITH  DECLARATION  ORDER 

II 

class  SBXIBRARY:  UM.cir 

class  SB^DTXOMPONENTXIBRARY;  Ushad.cxi 

class  SB.OPERATOR-COMPONENTXIBRARY;  Usbocl.cxx 

class  SBJ>:EYVV0RD_LIBRARV;  Ushkwlcxr 

class  SB.COMPONENT;  Usbccxi 

class  SB-COMPONENT-DICTIONARY;  Ushcd.cxx 

class  SBJvEYVVORD-DICTIONARY;  Hsbkwd.cxx 

class  SB-TEXT_OBJECT;  Usbio.cxi 

class  SB_ADT-COMPONENT:  //siac.crz-  J 

class  SB.OPERATOR;  Hsbo.cxx  " 

class  SB-OPERATOR-COMPONENT;  Usboc.cxi 

class  SB-ADT-OPERATOR;  Usbao.cxi 

class  SBJD-DECL-DICTIONARY;  Hsbidd.cxx 

class  SBJD-DECL;  Hsbid.cxx 

class  SB-TYPE-USAGE;  Hsbiu.cxx 

class  SB.TYPE-USAGE-DICTIONARY;  Hsbiud.cxx 
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] 


class  SB.TYPE-NAME;  //sbln.crr 

class  SB_ADT_0PERAT0R_D1CTI0NARY;  /jsbaod.cxx 
class  SB_EXCEPTI0NJ3ICTI0NARY;  //sbed.cxx 
class  SB_RECOGNIZED.TYPES:  //shri.cxx 

II 

//  SOFTBASE  NAMEING  CONVENTIONS 

II 

II  A.  all  softbase  class  names  siari  wiih  "SB."  this  eliminates  any 

II  potential  name  space  conflicts  with  any  other  software. 

II  B.  all  TRef  instances  start  with  "the."  and  there  dereferencing 

1 1  functions  use  the  rest  of  the  name.   (le.    TRef  *ihe^nam,e, 

II  SB.*  name()  ) 

II 

// 

//  to  eliminate  confusion  beticeen  PSDL  types  and  stream  types 

II  PSDL  types  are  refered  to  as  abstract  data  types  (ADT)  and 

II  stream  types  are  refered  to  as  simply  types 

II 
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class  SB-LIBRARY  :  public  Obiect 

{    . 
private: 

TRef  +the_adt. component  Jibrary; 
Dictionary  Iterator  adtJterator(); 
SB-ADT_COMPONENTXIBRARV  *adt_componentJibrary(); 

TRef  *the_operator .component  Jibrary; 
Dictionary  Iterator  operatorJterator(); 
SB.OPERATOR-COMPONENTXIBRARY  *operator_componentJibrary(); 

TRef  *tlie.component .dictionary; 
Dictionary  It  era  tor  component  _iterator(); 
SB-COMPONENT JDICTIONARY  *component.dictionary(); 


TRef  *the_key\vord  Jibrary; 
SBJ<EYWORD_LIBRARY  *l<ey\vordJibrary(); 


TRef  +the_i-ecognized  .types; 

SB.COMPONENT-DICTIONARY  *query(SB-COMPONENT  *); 
public: 

//  ineiliods  for  odIos 

SB-LIBRARY  (APL  *); 

virtual  void  Destroy  (Boolean  aborted=FALSE); 

virtual  void  deleteObject( Boolean  deallocate=FALSE); 

virtual  void  putOi)ject(Boolean  deallocatP=FALSE); 

Type  *getDirectType(); 

// 

SBXIBRARY(char  *name.char  *table); 

void  component-list(ofstream(*c  outstream); 

void  keywordJist(ofstream>k:  outstream); 

void  typeJist(ofstream<k:  outstream); 

void  operator-list(ofst reamed  outstream); 

void  ciuery(SB-COiMPONENT  *query -component, ofstreamfc  outstream); 
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void  keyword_query(ifstreami:  instream,  ofstreamfc  outstream); 

Boolean  add(SB_COMPONENT  *); 

SB-COMPONENT  *query(cliar  ♦component  jiame); 

void  update_recognized_types(chai-  *file); 

SB_RECOGNIZED.TYPES  *iecognized_types(); 

void  delete_component (SB-COMPONENT  *the-Component); 

}; 


class  SBj^DTXOMPONENTXIBRARY  :  public  Object 
private: 

TRef  *the_adt_component_dictionary; 

SB_COMPONENT_DICTIONARY  *adt.component-dictionary(); 
TRef  *the_niain_library; 
Dictionary  *main_libiary(); 
public: 

//  nulhods  for  oiilas 

SB^DT-COMPONENTXIBRARY(APL  *); 
virtual  void  Destroy( Boolean  aborted=:FALSE); 
virtual  void  delete01)ject( Boolean  deallocate=FALSE); 
virtual  void  put  Object  (Boolean  deallocate=FALSE); 
Type  *getDirectType( ): 

// 

SB_ADT_COMPONENT_LIBRARY(); 

Boolean  add(SB^DT_COMPONENT*  ): 

SB_COMPONENT_DICTIONARY  *queiy(SB^DT_COMPONENT  *query xomponent); 

void  list(ofstream<t  out  stream); 

Dictionarylterator  iteiatort( ); 

void  delete_component(SB_ADT.COMPONENT  *the_component); 

}; 
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class  SB-COMPONENTJDICTIONARY  :  public  Dictionary 
{ 

public: 

//  ontos  meihods 

SB.COMPONENT_DICTIONARY(APL  *); 
virtual  void  Destroy  (Boolean  aborted=:FALSE); 
virtual  void  deleteObject( Boolean  deallocate=FALSE); 
virtual  void  putObject(Boolean  deallocate=FALSE); 
Type  *getDirectType(); 

// 

SB_COiMPONENT_DICTIONARY(); 

Boolean  add(SB_COMPONENT  *); 

SB.COMPONENT  *queiy(char  *name); 

void  piintOn(ofstieani(*c  outstieam); 

Dictionarylterator  iteratoi( ); 

}; 
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class  SB_OPERATOR_0OMPONENTXIBRARY  :  public  Object 
{ 

private: 

TRef  *the_operator .component -dictionary; 
SB.COMPONENT_DICTIONARY  *operator.component_dictionary(); 

TRef  *the^tate_dictionary; 
Dictionary  *state_dictionary(); 

TRef  *  the  Jion^tate -dictionary; 
Dictionary  *non^tate_dictionary(); 

public: 

//  onios  meihods 

SB_OPERATOR-COMPONENTXIBRARY(APL  *); 
virtual  void  Destroy  (Boolean  al)orted=FALSE); 
virtual  void  deleteOhject(  Boolean  deallocate=FALSE); 
virtual  void  putObject( Boolean  deallocate=FALSE); 
Type  *getDirectType(); 

// 

SB-0PERAT0R_C01\IP0NENTXIBRARY(); 

Boolean  add(SB-OPERATOR-COMPONENT  *new .component); 

SB_C0MP0NENTJ3ICTI0NARY  *query( 

SB-OPERATOR_COMPONENT  *query .component); 

void  list(ofstream<k:  outstream); 

Dictionarylterator  iterator(): 

void  delete.component(SB.OPERATOR-COMPONENT  *the_component); 

}; 
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class  SBJvEYWORD.LIBRAR^'  :  public  Dictionary 

{ 
public: 

//  ontos  methods 

SBJ<EYWORDXIBRARY(APL  *); 

virtual  void  Destroy( Boolean  aborted=:FALSE); 

virtual  void  deleteObject( Boolean  deallocate=:FALSE); 

virtual  void  putObject(Boolean  deallocate=FALSE); 

// 

SB_KEYWORD.LIBRARY( ); 

void  query(ifstieam(*v:  instreani,  ofstream(L'  outstream); 

Boolean  add_coniponent( SB-COMPONENT  *new_component); 

void  delete_coniponent(SB.CO!\IPONENT  *the_component); 

Dictionarylterator  iteiatoi(); 

void  list(ofstreani(*v:  outstream); 

}; 
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class  SB-COMPONENT  :  public  Object 
{ 

private: 

char  *the_component_name; 

TRef  *the_key word-dictionary; 
TRef  *the-psdl-text; 
TRef  *theJmp_spec-text; 
TRef  *theJmp_body-text; 
TRef  *the Jnformal-description ; 
TRef  ♦theJormal-descriptioii; 
TRef  *the_iiorni_forniaLdescription; 
TRef  *the_recognized -type .usage; 
TRef  *the-unrecognized-type.usage; 

TRef  *the-generic -usage: 

protected: 

SB-COMPONENT(APL  *theAPL); 
public: 

virtual  Type  *getDiroctType()=0; 
virtual  void  Destroy( Boolean  al^orted^FALSE); 
virtual  void  deleteObject( Boolean  deallocate=FALSE); 
virtual  void  putObject(Boolean  deaIlocate=FALSE); 

// 

SB.COMPONENT(char  *id); 
virtual  void  printOn(ofstreaiii<L'  outstream)=0; 
Boolean  add-key\vord(cliar  *key\vord): 
char  *componenl-name(): 
SB-TEXT-OBJECT  *psdl-text(); 
SB.TEXT.OBJECT  *imp-spec.text(); 
SB.TEXT.OBJECT  *imp-body.text(): 
SB-TEXT-OBJECT  *informaLdescription(): 

78 


SB.TEXT.OBJECT  *formaLdescription(); 

SB_TEXT_OBJECT  *norm_formaLdescription(); 

SB.TYPE_USAGE_DICTIONARY  *generic.usage(); 

void  add-text(ifstieanii:  psdl,  ifstream&;  spec,  ifstreamfc  body); 

void  insert_generics(SB_TYPE_USAGE_DICTIONARY  *  new  generic  jusage); 

SB.TYPE_USAGE_DICTIONARY  *recognized_type.usage(); 

SB_TYPE-USAGE_DICTIONARY  *unrecognized _t.ype-usage(); 

SBJ<EYWORD_DICTIONARY  *keywoid_dictionary(); 

iiit  num_unrecogiiized_types( ): 

virtual  iiit  num_generic_types()=0; 

int  totaLtypes( ); 


}; 


class  SB_ADT.COMPONENT  :  public  SBXOMPONENT 

{    , 
private: 

TRef  *the_adt.usage; 

TRef  *lhe_operator^pecs; 
SBJ^DT.OPERATOR-DICTIONARY  *operator^pecs(); 

public: 

//  onios  methods 

SB^DT.COMPONENT  (APL  *); 

virtual  void  Destroy  (Boolean  aborted=FALSE); 

virtual  void  delete01\ject( Boolean  deallocate^: FALSE); 

virtual  void  putObject(Boolean  deallocate=FALSE); 

Type  *getDirectType( ): 

// 

SB_ADT.COMPONEi\T  (char  *id): 

void  insert_adt_usage(SB.TYPE_USAGE-DICTIONARY  *  new ^dt .usage); 

void  insert  .opeiators(SB-.\DT -OPERATOR  J3ICTI0NARY  *  new  .operators) 

iiit  num_adts(); 

int  nuni_adt_operators(); 

int  total  Jnputs( ): 

int  totaLoutpiits(); 

virtual  int  nuni_generic_types(); 

Boolean  filter(SB.ADT-COMPONENT  ^library .component); 

Dictionarylterator  adt_iterator( ); 

Dictionarylterator  adt_operatorJterator(); 

void  printOn(ofstream(.^-  outstreani); 

virtual  Boolean  process-type.info(); 

SB.TYPE.USAGE-DICTIONARY  *adt.usage(); 
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}; 
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class  SB.OPERATOR  :  public  SB.COMPONENT 
{ 

private: 

TRef  *theJnput-attributes; 
TRef  *the_output .attributes; 
TRef  *the_exceptions; 
Boolean  statesJlag; 
protected: 

//  oh/05  meihods 

SB_OPERATOR(APL  *  llieAPL); 

virtual  void  Destioy( Boolean  aborted=FALSE); 

virtual  void  deleteObject( Boolean  cleallocate=FALSE); 

virtual  void  putOhject(Boolean  deallocate=FALSE); 

virtual  Type  *getDirectType()=:0; 

// 

SBJD_DECL.D1CTI0NARY  *inpiit.attiibutes(); 
SBJD_DECL.DICTIONARY  *oulput_attiibutes(); 
SBJ:XCEPTI0NJD1CTI0NARY  *exception.s(); 
SB.OPERATOR(cliar  *id); 
public: 

Boolean  addJnputs(SB JD_DECL_DICTIONARY  *); 

Boolean  add_outputs(SBJD-DECL.DICTIONARY  *); 

Boolean  add_exceptions(SB  J:XCEPTI0NT)ICT10NARY  *); 

int  numJnputs( ); 

int  num_output.s( ); 

virtual  int  nuni_generic_types(); 

Dictionarylterator  input  Jteiator( ); 
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Dictionarylterator  output Jteiatoi( ); 

Dictionarylterator  exception Jterator(); 

Boolean  states(); 

void  set^tates(); 

virtual  void  piintOn(ofstream(L'  ); 

}; 
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class  SB_ADT_OPERATOR  :  public  SB.OPERATOR 

{ 
public: 

//  onios  methods 

SBJ^DT.OPERATOR(APL  *  theAPL); 

virtual  void  Destroy( Boolean  aborted^FALSE); 

virtual  void  deleteObject(Boolean  deallocate=FALSE); 

virtual  void  putObject(Boolean  deallocate=FALSE); 

virtual  Type  *getDirectType(); 

// 

Boolean  piocessJypejnfo(SB_-\DT.COMPOXENT  ♦adt; 

SB_ADT.OPERATOR(char  *): 

}; 
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class  SB_OPERATOR_COMPONENT  :  public  SB_OPERATOR 
{ 

public: 

//  onios  meihods 

SB_OPERATOR.COMPONENT(APL  *  theAPL); 
virtual  void  Destroy  (Boolean  aborted=FALSE); 
virtual  void  deleteObject( Boolean  deallocate=FALSE); 
virtual  void  i>ut  Object  (Boolean  deallocate=FALSE); 
virtual  Type  *getDirectType(); 

// 

SB.OPERATOR_COMPONENT(char  *); 

Boolean  process_typeJnfo( ); 

Boolean  filtei(SB_OPERATOR-COMPONENT  *library_unit); 

}; 
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class  SB.TEXT.OBJECT  :  public  Object 
{ 

private: 

char  *the_text; 
public: 

//  07}tos  meihods 

SB_TEXT.OBJECT(APL  *); 

Type  *getDiiectType(); 

virtual  void  Destroy( Boolean  aborted=FALSE); 

virtual  void  deleteObject( Boolean  deallocate=rFALSE); 

virtual  void  putObject(Boolean  deallocate=FALSE); 

// 

SB.TEXT.OBJECTO; 
void  append(ifstreani.V:  ); 
void  append(char  *); 
void  text (ofst ream. k:  ): 
char  *text(): 

}; 
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class  SBJvEYVVORD-DICTIONARY  :  public  Dictionary 
{ 

public: 

//  onios  meihods 

SBJ<EYWORD_DICTIONARY(APL  *); 
virtual  void  Destroy  (Boolean  aborted^:  FALSE); 
virtual  void  deleteObject( Boolean  deallocate=FALSE); 
virtual  void  putObject(Boolean  deallocate=FALSE); 
Type  *getDirectType(); 

// 

SB  JvEYWORD-DICTIONARY( ); 

Boolean  add  (char  *); 
Dictionarylteiator  iteiatoi(); 
void  printOn(ofstieanii:  ); 

}; 


87 


class  SB-ADT_OPERATOR-DICTIONARV  :  public  Dictionary 
{ 

public: 

//  onios  wclhods 

SB_ADT_OPERATOR-DICTIONARY(APL*  ); 
virtual  void  Destroy( Boolean  aboited=FALSE); 
virtual  void  deleteObject( Boolean  deallocate=FALSE); 
virtual  void  put  Object  (Boolean  deallocate=FALSE); 
Type*  getDirectType(): 

// 

SB_ADT.OPERATOR.DICTIONARY(); 

void  add(SB_ADT.OPERATOR  *); 

void  append(SB_ADT_OPERATOR-DICTIONARY  *): 

int  num(); 

int  totalJnputs(): 

int  totaLoutpiits( ): 

Dictionarylterator  iteiatoi(); 

void  printOn(ofstreanii:  ); 

}; 
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class  SBJ:XCEPTI0NJ)ICTI0NARY  :  public  Dictionary 
{ 

public: 

//  ontos  meihods 

SB_EXCEPTION_DICTIONARY(APL  *  ); 
virtual  void  Destroy  (Boolean  aborted=FALSE); 
virtual  void  deleteObject(Boolean  deallocate=FALSE); 
virtual  void  putObject( Boolean  deallocate=FALSE); 
Type  *getDirectType(); 

// 

SB.EXCEPTION -DICTION  ARY(); 

Boolean  add(char  *); 

Boolean  append(.SB.EXCEPTION  JDICTIONARY  *  ); 

Dictionarylterator  iteratoi(); 

void  printOn(ofstreanu^'  ); 

}; 
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class  SB JD_DECL.DICTIONARY  :  public  Object 
{ 

private: 

TRef  ♦the.dictionary.byJype; 
TRef  *the_dictionai y_by_id; 
TRef  *the Jd-declarationJist; 

Dictionary  *dictionary_by_type(); 
Dictionary  ♦dictionary _by _id( ); 
List  *id_declaration_list(); 

public: 

//  onios  methods 

SBJDJDECL.D1CTI0NARV(APL  *): 

virtual  void  Deslroy( Boolean  al:)orted=FALSE); 

virtual  void  deleteObject( Boolean  deallocale=FALSE); 

virtual  void  putObiect(Boolean  deallocate=FALSE): 

Type  *getDirectType(); 

// 

SB  JD_DECL_DICT10NARY( ); 

Boolean  add_decl(char  *id.SB_TYPE_NAME  *type_name); 

Boolean  add.decl(SBJD.DECL  *decl): 

void  iemove_decl(SB_ID_DECL  *decl); 

Boolean  append(SBJD-DECL-DICTIONARY  *); 

int  num(); 

SBJD_DECL  *queiyJd(char  *queryjiame); 

Dictionarylterator  id Jteratoi( ): 

Dictionarylterator  typeJteiator( ): 

Listlterator  order Jteiatoi(): 

void  printOn(ofstreani<_^  ); 

}; 
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class  SBJD.DECL  :  public  Object 
{ 

private: 

char  *theJd; 

TRef  *the_type  Jiame; 

public: 

//  onios  inelhods 

SBJD_DECL(APL  ♦); 

virtual  void  Destroy( Boolean  aborted=FALSE): 

virtual  void  deleteObject( Boolean  deallocate=:FALSE); 

virtual  void  putObject(Boolean  deallocate=FALSE); 

Type*  get  Direct  Type(); 

// 

SBJD.DECL(char  *.  SB_TYPE_NAiME  *  ); 

SB_TYPE_NAME  *ty|>ejianie(); 

char  *id(); 

void  printOn(ofstieam<^-  ); 

}; 
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class  SB_TYPE_NAME  :  public  Obiect 
{ 

private: 

char  *theJd; 

char  *the_base_typeid; 

int  the_type_code; 

int  the_base_type_code; 

TRef  *  the  Jd_decl -dictionary; 

SBJD_DECL_DICTIONARY  *id_decLdictionary(); 

public: 

//  oulos  mtiltods 

SB.TYPE_NAME(APL  *  ): 

virtual  void  Destroy  (Boolean  aborted=FALSE); 

virtual  void  deleteObject( Boolean  deallocate=FALSE); 

virtual  void  put  Object  (Boolean  deallocate=FALSE); 

Type*  getDirectTyi)e( ): 

// 

SB-TYPE_NAl\IE(char  *,SBJD_DECL.DICTIONARY  *] 

virtual  Boolean  operator  ==  ( Entity <L"  ); 

virtual  Boolean  operator  >  (EntityiL'  ); 

Listlterator  decLiterator(); 

char  *id(); 

char  *base_typejd(); 

int  type_code(); 

int  base_type_code( ); 

Boolean  recognized(); 

int  num.declO; 

void  printOn(ofstreanii:  outstream); 
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}; 
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class  SB-TYPE.USAGE  :  public  Object 
{ 

private: 

char  *the-typeJd; 
TRef  *the_type_iiame; 
int  the-times_used; 


public: 

//  ontos  melhods 

SB.TYPE_USAGE(APL  *theAPL); 

virtual  void  Destroy( Boolean  aborted  =  FALSE); 

virtual  void  deleteObject( Boolean  deallocate=FALSE); 

virtual  void  putObject(Boolean  deallocate=FALSE); 

// 

SB_TYPE.USAGE(cliar  *ne\v_typeJd,SB_TYPE_NAME  *new.typejiame); 

char  *typeJd(); 

void  used(); 

int  t.imes_used(); 

Type  *get.Diiec(Type( ); 

void  pi'intOn(ofstreani(k:  outstieam); 

SB_TYPE.NAME  *typejiame(); 

char  *base_typeJd(); 

}; 
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class  SB.TYPE_USAGE_DICT10NARY  :  public  Object 
{ 

private: 

TRef  *the_dictionary_by_typeJd; 
TRef  *the_dictionary_by-tinies_used; 
TRef  *the_dictionaiy -by -base .type; 

Dictionary  ♦dictionary. by _time.s-used(); 
Dictionary  *dictionary-by-typeJd(); 
Dictionary  *dictionary-by-base-type(); 

public: 

//  onios  meihods 

SB-TYPE.USAGE_DICTIONARY(APL  *); 
virtual  void  Destroy(  Boolean  aborled=FALSE); 
virtual  void  deleteObject(Boolean  deallocate=FALSE); 
virtual  void  putObject(Booleaii  deallocater=FALSE); 
Type  *getDirectType(): 

// 

SB-TYPE-USAGE_DICTIONARY( ); 

Boolean  add-type(char  *typeJd,SB_T^'PE.NAME  *type_name); 

Boolean  add_type(SB_T^TE-USAGE  *type_usage); 

Boolean  update(SB_T^'PEJ\'AME  *typejianie); 

Boolean  append(SB-TYPE-USAGE JDICTIONARY  *); 

void  remove-Usage(SB_TYPE_USAGE  *the_usage); 
int  nuni(); 

Dictionarylterator  typeJdJterator(): 

Dictionarylterator  times_used-iterator( ); 

Dictionarylterator  base -type  Jterator( ); 

void  printOn(ofstream(L'  ); 

}; 
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class  SBJIECOGNIZED.TYPES  :  public  Object 
{ 

//  this  object  vses  a  data  file  which  follows  ihe  following  format 
II  for  its  input 

A 

casesenstttinty  (0  for  no,  1  for  yes) 

unrecogntzed.id  (ie  UNRECOGNIZED  for  Ada.   This  id  is 

automatically  asigned  to  all  unrecognized  id's) 
inheritance  Jd  (le  baseJype  used  for  Ada) 

genericJype.id  (le  genericJype  used  for  Ada) 

generic.suhprogram.id  (ie  generic-procedure  used  for  Ada) 
abstract. dataJype.td  (le  adt  used  for  Ada) 
array.id  (k  array  used  for  Ada) 

array. ind(x_id  (ie  index  used  for  Ada) 

array.element.id  (le  element  used  for  Ada) 

{recognized. type. id]*  (all  other  type.id's  known  to  this  language 

le  INTEGER,  POSITIVE  etc.  used  in  Ada) 
~  (used  to  separate  the  IDs  from  the  rule  map) 

rule  matrix  where  0  indicates  no  mapping  1  indicates  yes 

each  id  entered  above  the  ~  makes  up  the  rows  and  columns  of 
the  matrix 

*/ 

private: 

TRef  *the_iiame_dictionaiy; 
Dictionary  *name_dictionai y( ); 

TRef  *the-ro\v_airay; 
Array  *ro\v_anay(); 

int  array _size; 

Boolean  casejsensitive; 

char  *convertJoaipper(char  *type_id); 

public; 

//  ontos  methods 

SBJlECOGNIZED_TYPES(APL  *theAPL); 

Type  *getDirectType(): 

virtual  void  Destroy( Boolean  aborted=FALSE); 
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virtual  void  deleteObject( Boolean  deallocate=FALSE); 
virtual  void  putObject( Boolean  deallocate=:FALSE); 

// 

SB_RECOGNIZED.TYPES(char  *file); 

int  typejiuniber(char  *typeJd); 

Boolean  map(iut  mapJn,int  map_out); 

}; 
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// 

//  this  file  contains  all  of  the  external  reterences  to  the 
II  ontos  type  schemas 

II 


extern  Type  *SB-LIBRARY.OType; 

extern  Type  *SB_ADT.COMPONENT_LIBRARY_OType; 

extern  Type  *SB.OPERATOR_COMPONENTXIBRARY.OType; 

extern  Type  *SB.COMPONENT.OType; 

extern  Type  *SB-COMPONENT_DICTIONARY.OType; 

extern  Type  *SB.KEYWORD-DICTIONARY-OType; 

extern  Type  *SB.TEXT_OBJECT.OType; 

extern  Type  *SB^DT.COMPONENT.OType; 

extern  Type  *SB.OPERATOR-COMPONENT-OType; 

extern  Type  *SB.ADT_OPERATOR-OType; 

extern  Type  *SBJD.DECL.DICTIONARY_OType; 

extern  Type  *SBJD-DECL-OType; 

extern  Type  *SB_T^TE_NAME.OType; 

extern  Type  *SB_ADT-OPERATOR_DlCTIONARY_OType; 

extern  Type  *SB_EXCEPTION-DICTIONARY_OType; 

extern  Type  *SB_TYPE_USAGE-OType; 

extern  Type  *SB-TYPE.USAGE_DICTIONARY.OType; 

extern  Type  *SB_RECOGNlZED_TYPES-OType; 

extern  SB.LIBRARY  *SB-MAIN-LIBRARY; 


#  define  DEFAULT.NAMEJ5IZE  21 

#def  ine  SB_UNRECOGNIZED.TYPE  1 

#def  ine  SB.BASE.TYPE  2 

#def  ine  SB.GENERIC.TYPE  3 

#def  ine  SB_GENERIC_SUBPROGRAM  4 

#def  ine  SB.GENERIC-VALUE  5 

#def  ine  SB_ABSTRACT_D ATA  .TYPE  6 

#def  ine  SB_ARRAY  7 

#def  ine  SB_ARRAY.INDEX  8 

#def  ine  SBJVRRAY.ELEMENT  9 
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#include  "sball.hxx" 

// 

//  ihese  defines  an  io  declare  llie  command  line 

II  argumenis 

II 

extern  "C — " 

{   _ 

int  system(char  *); 

} 

#def  ine  KWL  "kwl"  //  caps.soflbase  kwl  language  oui.file 
#def  ine  K\VL_N  1  //  keyword  list 

#def  ine  K\^■Q  "kwq"  //  caps.sofibase  kwq  language  in.file  oui.file 
#def  ine  KVVQ.N  2  //  keyword  query  (2) 

#def  ine  OL  "ol"  //  caps.softbase  ol  language  oui.file 
#def  ine  OL_N  3  //  operator  lisl  (3) 

#def  ine  TL  "tl"  //  capssofihase  il  language  oui.file 
#def  ine  TL_N  4  //  iypc  list  (.{) 

#def  ine  CQ  "cq"  //  caps.sofihase  cq  language  psdLfile  oui.file 
#define  CQ_N  5  //  cowponeni  query  (5) 

#def  ine  CA  "ca"  //  caps.softbase  ca  language 

II  psdl.file  spec.tn  body. in 

#def  ine  CA_N  6  //  componeni  add  (6) 

#def  ine  CU  "cu"  //  caps.sofihase  cu  language 

II  psdLfile  spec.m  body.in 

#def  ine  CU.N  7  //  componeni  update  (7) 

#def  ine  CD  "cd"  //  caps.sof1base  cd  language  componeni  .name 
#def  me  CD_N  8  //  componeni  delete  (8) 

#def  ine  CL  "cl"  //  caps.softbase  cl  language  oui.fil 
#def  ine  CL.N  9  //  componeni  Itsi  (9) 

#def  ine  CGM  "cgm"  //  caps.softhasi  eg  language 

II  psdl  component  map.oul 

#define  CGM_N  10  //  component  generate  map  (10) 

#def  ine  ML  "ml"  //  caps.softbase  ml  language  generator  table 
#define  ML_N  11  //  make  neiu  library 

#def  ine  CV  "cv"  //  caps.softbase  cv  language 

II  component.name  psdl 

II  ada.spec  ada.body 

#def  ine  CV_N  12  //  component  view 

#def  ine  DL  "dl"  //  caps.softbase  dl  language 
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#deline  DL_N  13  //  deleie  language  library 

#def  ine  CDIAG  "cdiag"  //  caps^s  oft  base  cdiag  language 

II  componeni.nanie  outfile 

#def  ine  CDIAG-N  14  //  priul  component  diagnostics 


#def  ine  LOGICAL.DB.NAME  "caps_sof tbase_LogDB" 

#def  ine  LIBRARY-PREFIX  "SB_" 

#def  ine  LIBRARY-SUFFIX  "-LIBRARY" 

#def  ine  TEMP_ENVIRONMENT  "TEMP" 

#define  DEFAULT.TEMP  "./" 

#define  NORMALIZE  "caps_sof tbase_normalize  " 

#ifdef  ..TURBOC__ 
int  line_nuniber; 
FILE  *yyin; 
#else 
extern  "C — " 

{ 

extern  int  line.number;  //  used  to  report  the  line  number  of  an  error 

extern  FILE  *yvin;  //  lex  input  stream 

} 

#endif 

Type  *SB_LIBRARY_OType; 

Type  *SB_ADT.C01SlP0"NENTXIBRARY.0Type; 

Type  *SB_OPERATOR-COMPONENTXIBRARY_OType; 

Type  *SB.COMPONENT.OType; 

Type  *SB_COMPONENT_DICTIONARY_OType; 


Type  *SB_KEYWORD_DICTIONARY.OType; 
Type  *SB.TEXT.OB.]ECT.OType; 

Type  *SB_ADT.COMPONENT-OType; 

Type  *SB_OPERATOR.COMPONENT_OType; 
Type  *SB_ADT.OPERATOR_OType; 

Type  *SBJD-DECL_DICTIONARY_OType; 

Type  *SBJD.DECL_OType; 

Type  *SB_TYPE_NAME_OType; 

Type  *SB_ADT.OPERATOR_DICTIONARY.OType; 

Type  *SB.EXCEPTION_DICTIONARY.OType; 

Type  *SB.TYPE.USAGE-OType; 

Type  *SB_TYPE_USAGE_DICTIONARY_OType; 

Type  *SB.RECOGNIZED.TYPES-OType; 
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SB_LIBRARY  *SB_MAIN LIBRARY; 

SB_COMPONENT  *YYPARSE_component;  //  used  by  yyparse  to  pass  the  components 

extern  yyparse(); 

main(int  argcchar  *aigv[|) 
{ 

iiit  exit_flag; 

void  update_db_types(); 

int  parse_coinniand(int  argc,char  *argv[|); 

Boolean  getJanguage_library(int  argcchar  *argv[]); 

if(0C-open(L0GICAL-DB_NAME)9^TRUE) 

{ 

cout  <  "THE  LOGICAL  SOFTBASE   "  <  LOGICAL.DB_NAME  <  "OPEN  FAILED\n" 
exit(l); 

}; 

int  the_operat  ion  sparse  _conini  and  (argc.aigv); 
if(the_opeiation7^ML_l\  (L'l'c  the_opeiation7^0) 

{   ^ 

if(!getJanguage_lilMarv(argc,argv)) 

{ 

exit(l); 

}; 
}; 

update_db_types( ) ; 

switch(the_opeiation) 

{ 
case  0: 

{ 

cout  <  "AN  INVALID  OPERATION  WAS  GIVEN  TO  SB\n"; 
break; 

); 

case  KWL_N; 

{  _ 
if(argc==4) 

{ 
ofstream  outfile(argv[3].ios::noieplace); 
if(outfile) 

{ 

//  outfile  was  opened  successfully 
SBJMAINXIBRARY— keyword_list(outfile); 
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exit_flag=0; 

} 
else 

{ 

cout  <  "UNABLE  TO   OPEN   OUTPUT  FILE\n"; 
exit_flag=:l; 

} 
else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 

exitJlag=l; 

}; 

break; 

}; 

case  KWQ_N: 

{   . 
if(argc==5) 

{ 

ifstream  infile(argv[3],ios::nocieate); 

if(infile) 

{ 

//  qufry  fiU  optn  successful 

ofstream  outfile(argv[4],ios:;noreplace); 

if(outrile) 

{ 

//  ouipui  file  opened  sticcessful 

SBJVIAINXIBRARY— keywoid.query(infile,outfile); 
exitJag^O; 

} 
else 

{ 

cout  <  "UNABLE  TO  OPEN  OUTPUT  FILE\n"; 
exit_flag=l; 
} 
] 
else 

{ 

cout  <  "UNABLE  TO  OPEN  INPUT  FILE\n"; 
exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 
exit_flag=l; 

}; 

break; 

}; 
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case  OL_N: 

{  , 

if(argc==4) 

{ 
ofstream  outfile(aigv[3],ios::noreplace); 
if(outfile) 

{ 

//  ouipui  file  opened  successfully 

SB.MAINXIBRARY-^operatorJist(outfile); 

exit_flag=:0; 

} 
else 

{ 

cout  <C  "UNABLE  TO  OPEN  INPUT  FILE\n"; 
exit_flag=l; 

); 
} 

else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 
exit-flag=l; 

}; 

break; 

}; 

case  CL-N: 

{  _ 
if(argc==4) 

{ 

ofstream  outfile(argv[3],ios::noreplace); 
if(outfile) 

{ 

//  ouipui  file  opened  successfully 
SB_MAINXIBRARY— component_list(outfile); 
exit_flag=0; 

} 
else 

{ 

cout  <  "UNABLE  TO  OPEN  INPUT  FILE\ii"; 
exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 
exit  Jlag=l; 

}; 

break; 

}; 

case  TL_N: 
{ 
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if(argc==4) 

{ 
ofstream  oiJtfile(aigv[3],ios::noreplace); 
if(outfile) 

{ 

//  ouiput  file  opened  successfully 

SB_MAIN_LIBRARY— typeJist(outfile); 

exit_flag=0; 

} 
else 

{ 

cout  <  "UNABLE  TO  OPEN  INPUT  FILE\n"; 
exit_flag=l; 

}; 
} 

else 

{ 

couf  <C  "INCORRECT   NUMBER  OF   ARGUMENTS\n"; 
exitJlagn] ; 

}; 

break; 

}; 

case  CQ.N: 

{ 
if(argc==5) 

{ 

yyin=fopen(ai-gv[3],"r"); 
if(yvin?^Nl'LL) 

{ 

//  psdl  file  opened  siiccesfully 

ofstream  outfile(aigv[4],ios::noreplace); 
if(outfile) 

{ 

//  ouifile  open  so  do  parse  psdLfile 

II  nesi  llie  Iransaclwn  so  synlar  error  iransaciion 

II  can  he  aborted 

get  Janguage_library(argc,aTgv); 

if(yyparse()3:=0) 

{ 

//  file  parsed  successfully  result  is 

II  in  YYPARSE.component 

if(\TPARSE.component— getDirectType()  ==SB_OPERATOR-COMPONENT_OT 

{ 

((SB.OPERATOR-COMPONENT  *)^^TARSE.component)-> 
process  _typejnfo( ) ; 

} 
else 

{ 

((SB_ADT.COMPONENT  *)YYPARSE_component)^ 
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process.tvpe  Jnfo(); 

}; 

SB_MAINXIBRARY^query(\TPARSE.component,outfile); 

//yyPARSE.com])ou€nt->D€stroy(FALSE); 

exit_flag=0; 

} 
else 

{ 

cout  <  "THERE  WAS  AN  ERROR  DURING  PARSING  "; 

cout  <  argv[3]  <  "\n"; 
exit_flag=r, 

}; 
} 

else 

{ 

cout  <  "UNABLE  TO  OPEN  OUTPUT  FILE\n"; 
exit_flag=l; 

}; 
} 

else 

{ 

cout  <C  "UNABLE  TO   OPEN   INPUT  FILE\n"; 
exitJlag=l; 

}; 
} 

else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n'"; 

exit_flag=:l; 

}; 

break ; 

}; 


case  CA_N: 

{  ^ 

if(argc==6) 

{ 
yyin=fopen(argv[3],"r"); 

if(vyin#NULL) 

{ 

//  psdl  file  opened  succesfully 
ifstream  spec_in(aigv[4],ios::nocreate); 
if(specJn) 

{ 

//  spec.tn  file  open  so  do  parse  psdLfile 
ifstream  bodyJn(argv[5],ios::noreplace); 
if(hodv_iii) 

{ 

//  all  files  successfully  open  so  start  transaction 
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//  V(s1  the  iransaciions  so  syntax  errors  can 
II  be  aborted 

getJanguageJibrary(argc,argv); 
update_db_types(); 

if(yyparse{)==0) 

{ 

//  file  parsed  successfully  result  is 

II  in  YYPARSE-Component  so  add  the  psdl  to  it 

II  and  the  spec  and  body 

ifstream  psdlJn(argv[3],ios::nocreate); 

\"\^PARSE_component—»add_text(psdlJn, spec  Jn, body  Jn); 

//  now  normalize  the  formal  description  if  there  is 

II  one 

if(strlen(YYPARSE.component— 

formaLdescription()— ••text())>0) 

{ 

char  *temp_dir  =  getenv(TEMP_ENVIRONMENT); 
if  (temp.dir  ==  NULL) 

{ 

temp.dir  =  new  char[strlen(DEFAULT_TEMP)  +  1]; 

strcpy(temp_dir,  DEFAULT.TEMP); 

}; 

char  *t.emp_file  =  tempnam(temp-dir,  "ojb"); 
chai'  terror Jile  =  tempnam(temp_dir,"nrm"); 

ostrstream  command_buiTer; 
ostrstream  remove_buffer; 
ostrstream  obj  Jile_buffer; 
ostrstream  norm_file_bufrer; 

obj_file_buffer  <C  tempJile  <C  ".obj"  <C  ends; 
norm_file_buffer  <C  tempJile  <^  ".obj. norm"  <C  ends; 

chai-  *obj_fiie=obj_file_bufFer.str(); 
char  +norm_file=norm_file_buffer.str(); 

command-buffer  <  NORMALIZE; 
command_bufFer  <C  obj.file  <C  "  "; 
command_buffer  <C  error  Jile  <C  ends; 

remove-buffer  <C  "rm  "  -C  temp_file  <C  ".*"; 
remove-buffer  <C  ends; 
ofstream  formaLdesc(obj-file); 
YY- 
PARSE-component^forniaLdescription()— »text(formaLdesc); 

formaLdesc.close(); 

char  *command=command-buffer.str(); 
int  status  Jlag=system(command); 
if(statusJ]ag=:=0) 
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//  succsessful  so  get  the  norm  file 
ifstream  norm_in(norm_file); 
if(normJn) 

{ 

//  file  was  there  so  append  it 
YYPARSE-Component— >^ 
norm-formaLdescription()— 
append(normJn); 


*)"\'^TARSE_componeiit) — 


+  )YVPARSE_componeiit  )— 


^'YPARSE.component — component  _iianie( 


if(YYPARSE.component^getDirectType()== 
SB.OPERATOR-COMPONENT.OType) 

{ 
((SB_OPERATOR.COMPONENT 


} 
else 

{ 


process  .type  Jnfo(); 

((SBJ^DT.COMPONENT 

process -type  jnfo(); 


}; 


if(SB_MAIN.LIBRARY— 

querv(Y^TARSE_component— component_name())= 

{ 

//  component  not  already  in  library  so  store  it 
OC_transactionStart( ) ; 
"\"\TARSE_component^putObject(); 

Boolean  add_status=FALSE; 
add^tatus=SB31AINXIBRARY— add(YYPARSE 

if(addjstatus==:TRUE) 

{ 

OC-transactionComniit(); 

exit_flag=0; 

} 
else 

{ 

exit_flag=l; 

cout  <  "UNABLE  TO  ADD  COMPONENT  "; 

cout  <C 

cout  <  "TO  MAIN  LIBRARY\n"; 
OC-transaction  Abort( ) ; 

} 
} 
else 

{ 

cout  <  "COMPONENT  "  < 
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endl: 


*)^^TARSE_compoiient  )— 


) 
else 

{ 


^^^PARSE-Component— *component_name(); 
cout  <  "  IS  ALREADY  IN  MAIN  LIBRARY  "< 


cout  <  "UNABLE  TO  ADD  IT  AGAIN  \n"; 
exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "ERROR  NORMALIZING  AXIOMS\n"; 

exitJlag=l; 

}; 
} 

else 

{ 

cout  <  "ERROR  NORMALIZING   AXIOMS\n"; 
ifstream  error_stream(error  Jile); 
if(error-stream) 

I 

char  ♦theJine=:new  char[256]; 
while(  !error_stream  .eof( )) 

{ 
error^t  ream. getline(theJine, 255); 
cout  <C  theJine  <C  endl; 
error -Stream  >>  ws; 
}: 
} 
else 

{ 

cout  <  "COULD   NOT  OPEN   NORMALIZE"; 

cout  <C  "   ERROR  FILE\n"; 

}: 
exit_flag=:l; 

}; 


if(YYPARSE_component— >getDirectType()  =  = 
SB.OPERATOR_COMPONENT_OType) 

{ 
((SB_OPERATOR-COMPONENT 

process  _tvpejnfo(); 

} 
else 

{ 

((SBJ^DT.COMPONENT  *)\^TARSE-component)- 

process_typeJnfo(); 

}; 

if(SB.MAINXIBRARY-* 
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queiy(\'^^PARSE -Component— >component_name())==NULL) 

{ 

//  component  not  already  in  library  so  store  it 
OC_transactionStart(); 
V^'PARSE-Component— +putObject(); 

Boolean  add_status=FALSE; 
add^t,atus=SBJVIAINXIBRARY-^add(^^PARSE.componei 

if(add_status==TRUE) 

{ 

OC.transactionCommit(); 
exit_flag=0; 

}  k 

else  T 

{ 

exit_flag=l; 

cout  <  "UNABLE  TO   ADD   COMPONENT   "; 
cout  <C 
'\'^'PARSE_coniponent — component  _nanie(); 

cout  <  "TO   MAIN   LIBRARY\n";  ^ 

OC-transactionAbort();  ■ 

} 
} 
else 

{ 

cout  <  "COMPONENT  "  < 

YYPARSE-component— >component_name(); 
cout  <  "    IS  ALREADY   IN  MAIN  LIBRARY   "<endl; 

cout  <  "UNABLE  TO   ADD   IT  AGAIN   \n"; 
exit_flag=l; 

}; 
); 
} 

else 

{ 

cout  <  "THERE  WAS  AN  ERROR  DURING  PARSING  "; 

cout  <  argv[3]  <  "\n"; 

exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "UNABLE  TO  OPEN  THE  IMPLEMENTATION  BODY  FILE\n"; 
exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "UNABLE  TO  THE  IMPLEMENTATION  SPEC  FILE\n"; 

exit_fla";=l; 
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}; 
} 

else 

{ 

cout  <  "UNABLE  TO  OPEN  PSDL  FILE\n"; 
exit_flag=l: 

}; 
} 

else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 

exit_flag=l; 

}; 

break; 

}; 

case  ML_N: 

{ 

if(argc=r=4) 

{ 

char  *langiiagejiame=argv[2]; 

char  *  libra  ry_nanie=new  char[strlen(language_name)+ 

strlen(LIBRARY_PREFIX)+ 
strlen(LIBRARY_SUFFIX)+ 1] ; 

strcpy(libraiy_iiame,LIBRARY.PREFIX); 

strcat(libraiy_iianie,language_name); 

strcat  (library  Jiame,LIBRARY_SUFFIX); 

OC_transactionStart(); 

SB_MAINXIBRARY=iiew  SBXIBRARY(library_irame,argv[3]); 

SB„MAINXIBRARY-^put.Object(); 

OC_transactionCommit(); 

exit_flag=0; 

} 
else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUHENTS\n"; 
exit_flag=l; 

}; 

break; 


case  DL_N: 

{ 

if(argc==3) 

{ 

OC_transactionStart( ); 

SB.MAINJJBRARY— deleteObject(TRUE) 
OC-transactionCommit(); 
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exit_flag=0; 

} 
else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 
exit_flag=l; 

}; 

break ; 

}; 

case  CV_N: 

{ 
if(argc==7) 

{ 

ofstream  psdLout(aigv[4],ios::noreplace); 
if(psdLout ) 

{ 

ofstream  spec_out(argv[5],ios:;noreplace); 
if(spec_out) 

{ 

ofstream  body_out(argv[6],ios::noreplace); 
if(bod\_out) 

{ 

getJanguageJibrary(argc,argv); 

update_db_types(); 
SBXOMPONENT 
*the.component~SB_MAINXIBRARY— query(argv[3]); 

if(the-component:7^NULL) 

{ 

//  compoiieni  found  so  dump  all  streams 

(the.component— 'psdl_text())— ►text(psdLout); 

(tlie_component— imp_spec_text())— •■text(spec_out); 

(the_component — -imp-body-textO)— >text(body_out); 

psdLout.close(); 

spec_out.close(); 

body_out.close(); 

exit.flag=:0; 

} 
else 

{ 

cout  <C  "COMPONENT  "  <  argv[3]  <  "   NOT  FOUND\n"; 
exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "UNABLE  TO  OPEN  THE  IMPLEMENTATION  BODY  FILE\n"; 
exit_flag=l; 

}; 
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} 

else 

{ 

cout  <  "UNABLE  TO  OPEN  THE  IMPLEMENTATION  SPEC  FILE\n"; 

exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "UNABLE  TO  OPEN  PSDL  FILE\n"; 

exit_flag=l; 

}; 
} 

else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 

exit_flag=l; 

}; 

break; 

}; 

case  CD_N: 

{  , 
if(argc==4) 

{ 

SB.COMPONENT  *tlie_component=;SB_MAINXIBRARY— query(argv[3]); 
if(the_component7^NULL) 

{ 

//  coiiiponeni  found  so  output  its  sources  to  backup 

//  this  is  where  the  SCCS  code  goes  for  the.componeni 

/ 1  (the.compovent->psdlJeit())->text(psdLout); 

/  /  (ihe.componei}t->imp.specJeit())->iext(spec.out); 

/  /  (the.component->imp.hodyJext())->text(hody.out); 

/  /  psdLout.close(): 

/  /  spec.out.  closefj; 

/  /  hody.out.close(): 

OC-tiansactionStait(); 

//  now  delete  the  component  from  the  library 

SB_MAIN_LIBRARY— delete_component(the_component); 

exit_flag=0; 

OC_transactionConimit( ); 

} 
else 

{ 

cout  <  "COMPONENT   "  <  argv[3]  <  "   NOT  FOUND\n"; 
exit_flag=l; 

}; 
} 

else 

{ 
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cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 
exit_flag=l; 

}; 

break; 

}; 

case  CDIAG-N: 

{  ^ 

if(argc==:5) 

{ 

ofstream  oiitfile(argv[4],ios::noreplace); 
if(outfile) 

{ 

//  ouifile  ivas  opened  successfully 

SB-COMPONENT  *the.component=SBJVIAIN_LIBRARY-^query(argv[3]); 
if(tlie_conipoiieiit/NULL) 

{ 

//  componcni  found  so  ouipuis  tis  diagnostics 


tlie-coniponeiit  sprint  On  (out  file); 


) 
else 

{ 


} 
else 

{ 


}; 


cout  <  "COMPONENT   "  <  argv[3]  <  "   NOT  FOUND\n"; 
exit_flag=l; 


} 


}; 


cout  <  "UNABLE  TO  OPEN  OUTPUT  FILE\n"; 
exit_flag=l; 


}; 


else 

{ 

cout  <  "INCORRECT  NUMBER  OF  ARGUMENTS\n"; 
exit  Jlag=l; 

}; 

break; 


}; 

OC.closeO; 
exit(exit  Jlag); 


}; 

iiit  yyenor(char  +s) 
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{ 

cout  <C  "\n"  -C  s  <C  "   on  line  number   "  <C  lineLiiumber; 

cout  <  "\n"; 

return{0); 

}; 

void  update_db_tvpes() 
{ 

SBXIBRARY.OType=(Type  *)  OCJookup("SB_LIBRARY"); 

SB_COMPONENT-OType=(Type  *)  OC  Jookup("SB-COMPONENT"); 

SB_ADT.COMPONENT.OType=(Type  *)  OC Jookup("SB_ADT_COMPONENT"); 

SBJD_DECL-DICTIONARY-OType=(Type  *)  OCJookup("SB_ID_DECL_DICTI0NARY"); 

SBJD-DECL.OType=(Type  *)  OC Jookup("SB_ID_DECL"); 

SB.TYPEJsAME_OType=(Type  *)  OC Jookup("SB.TYPE.NAME"); 

SB_ADT.OPERATORJDICTIONARY_OType=(Type  *) 
OCJookup("SB_ADT-0PERAT0R_DICTI0NARY"); 

SB^DT-OPERATOR-OType=(Type  *)  OC Jookup("SB_ADT_OPERATOR"); 

SB_OPERATOR-COMPONENT_OType=(Type  *)  OC  Jookup("SB.OPERATOR_COMPONENT"); 

SB_EXCEPTIONJDICTIONARY.ofype=(Type  *)  OC Jookup("SB_EXCEPTION_DICTIONARY"] 

SB-TEXT_OBJECT_OType=(Type  *)  OC  Jookup("SB-TEXT_OBJECT"); 

SBJ<EYVVORD_DICTIONARY-OType=(Type  *)  OCJookup("SB_KEYW0RD_DICTI0NARY"); 

SB.COMPONENTJDICTIONARY_OType=(Type  *) 
OCJookup("SB_C0MP0NENT_DICTI0NARY"); 

SB_ADT_COMPONENTXIBRARY_OTyperr(Type  *) 
OCJookup("SB_ADT_C0MP0NENT_LIBRARY"); 

SB.OPERATOR.COMPONENT_LIBRARY.OTyperr(Type  *) 
OCJookup("SB.0PERAT0R_C0MP0NENT-LIBRARY"); 

SB_TYPE_USAGE.OType=r(Type  *)OCJookup("SB.TYPE_USAGE"); 

SB-TYPE_USAGE_DICTION'ARY-OType=(Type 
*)OCJookup("SB-TYPE_USAGE_DICTI0NARY"); 

SB_RECOGNIZED-TYPES-OType=(Type  *)OCJookup("SB_REC0GNIZED_TYPES"); 

}; 


int  parse_conimajicl(int  argc,  char  *argv[|) 
{ 

hit  return_value=0: 

if(argc  >2) 

{ 
if(strcmp(argv[l],KWL)==0) 

{ 

return_value=KWL_N; 

} 
else  if(strcmp(argv[l],K\VQ)=rrO) 

{ 

ietiirn_value=K\VQ_N; 

} 
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else  if(strcmp(argv[l],OL)==0) 

{ 
return_value=OL_N: 

}    , 

else  if(strcnip(argv[l],TL)==0) 

{ 

return  _value=TLJV; 

} 
else  if(strcnip(argv[l],CQ)==0) 

{ 

return_value=CQ_N; 

} 

else  if(strcmp(argv[l],CA)==0) 

{ 

return-value=CAJV; 

}    , 

else  if(strcmp(argv[l],Cl')  ==0) 

{ 

return-value=:CU_N: 

}    , 
else  if(strcnip(argv[l],CD)  ==0) 

{ 

return  _value==CD_N; 

}    , 

else  if(strcmp(argv[l],CL)  ==0) 

{ 

return  _vahie=CL_N; 

} 
elseif(strcmp(argv[l],CGM)==0) 

{ 

return  _value=CGM-N; 

} 
else  if(strcmp(argv[l],ML)  ==0) 

{ 

return  _value=ML_N; 

}    . 
else  if(strcmp(argv[l].C^')  ==0) 

{ 

return -value=CV_N; 

}    . 
else  if(strcnip(argv[l],DL)=:=:0) 

{ 

return -Valuer  DL_N; 

} 

elseif(strcmp(argv[l],CDIAG)==0) 

{ 

return  _value=CDI  AG  _N; 

} 

} 
I'etiirii  ret  urn  .value; 

}; 


116 


Boolean  getJanguageJibiarv(int  argcchar  *argv[]) 
{ 

Boolean  return_flag=FALSE; 

if(argc  >  0) 

{ 

char  *language_name=argv[2]; 


char  *libiaiy-name=new  char[strlen(language_name)-|- 

strlen(LIBRARY_PREFIX)+ 
stilen(LIBRARY^UFFIX)+lj; 

strcpy(libiaryjiame,LIBRARY_PREFIX); 

strcat(  libra  ry_nanie,language_name): 
strcat(libiary_nanie, LIBRARY  .SUFFIX); 

//  ASSIGN  THE  GLOBAL  VARLABLE  SB.MAIN.LIBRARY  THE  VALUE  OF  THE 
LIBRARY 

SB_MAIN.LIBRARY=(SBXIBRARY  *)  OCJookup(libraryjiame); 

if(SB_MAIN.LIBRARY==NULL) 

{ 

cout  <C  "LIBRARY  FOR  LANGUAGE   "; 

cout  <  language-name  <  "   NOT  FOUND\n"; 

returnJlag=FALSE: 

} 
else 

{ 

return  Jlag=TRUE: 

}; 

} 
else 

{ 

cout  <  "INCORRECT  NUMBER   OF  ARGUMENTS\n"; 

}i 
return  returnJlag; 

}; 
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#  include  "sball  .hxx" 

#  include  "sbextern.h" 

SB^DT.COMPONENT::SB^DT.COMPONENT(APL  *theAPL): 

SB.COMPONENT(theAPL) 

{ 

1; 
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I 


SB_ADT-COMPONENT::SB^DT.COMPONENT  (char  *id)  :  SB_COMPONENT(id) 

SB_TYPE_USAGEJ3ICTI0NARY  *new.adt.usage=new  M 

SB.TYPE.USAGEJDICTIONARYO; 

the_adt_usage=ne\v^dt_usage^findTRef(); 

SB_ADT.OPERATOR-DICTIONARY  *new.operator^pecs=new  ^ 

SB_ADT_OPERATOR-DICTIONARY();  H 


the-operator_specs=:ne\v  j3peiator^pecs^findTRef(); 

}; 

voidSB_ADT.COMPONENT::inseitjdt.usage(SB.TYPE_USAGEJDICTIONARY* 

new_adt_usage) 

{ 

adt_usage(  )—append(nevv^dt  .usage); 

}; 

voidSB_ADT.COIMPONENT::insert_operatois(SB^DT_OPERATOR_DICTIONARY* 

new.operatois) 

{ 

operator_specs()^append(ne\vxiperators); 

}; 

void  SB^DTXOMPONENT::Destrov(Boolean  aborted) 
{ 

adt_usage()^Destroy(  aborted); 

opeiator_specs()-^  Destroy  (aborted); 

delete  the.adt.usage; 
delete  the-operatorj5pecs; 

SB_COMPONENT::De.stroy(aborted); 

}; 

void  SB_ADT.COiMPONENT::deleteObject(Boolean  deallocate) 
{ 
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I 


adt_usage()-*deletpObject(FALSE); 
operator-specs()-^deleteObject(  FALSE); 
SB_COMPONENT::deleteObject  (deallocate); 

}; 

void  SB_ADT_COMPONENT::putObject (Boolean  deallocate) 

{ 

adt_usage()—+put Object  (deallocate); 

operator_specs()— ►putObject(deallocate); 
SB.COMPONENT::putObject(deallocate); 

SB.TYPE_USAGE_DICTIONARY  *SB-ADT_C01\IP0NENT::adt.usage() 
return  (SB_TYPE_USAGE-DICTIONARY  *)(the_adt_usage-^Binding()); 

SBJVDT.OPERATOR-DICTIONARY  *SB-ADT_COMPONENT::operator^pecs() 
return  (SB^DT_OPERATOR-DICTIONARY  *)(the.operatorjspecs^Binding()); 

Type  *SB_ADT.COMPONENT::getDirectType() 
return  SB_ADT.COM PON ENT-OType; 


void  SB_ADT-COiMPONENT::piinlOii(ofslieaniAi  outstream) 

{ 

outstream  <C  "\nOUTPUTING  THE  CONTENTS  OF  DATA  TYPE  "; 

outstream  <C  this-^component_name()  •C  ":\n\n"; 

outstream  <C  "num  unrecognized  types    "  <C  num_unrecognized_types()  <C  "\n"; 

outstream  <  "GENERIC  SPECS\n"; 

SB_COMPONENT::generic_usage()^printOn(outstream); 

outstream  <  "\nTYPE  SPECS\n"; 

adt_usage(  )^printOn(outstream); 

outstream  <  "\nOPERATOR  SPECS\n"; 
operator-specs() — print  On(out  stream); 

outstream  <C  "\n\n"; 

}; 
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int  SB^DT_COMPONENT::num_adt_operators() 

{ 

return  operatoi_specs()-^num(); 

}; 

int  SB_ADT_COMPONENT::totalJnputs() 

{ 

return  operator_specs()-^total  Jnputs(); 


}; 


int  SB_ADT.COMPONENT::niim.adts() 

{ 

return  adt.usage()— num(); 

}; 


int  SB_/VDT.COMPONENT::totaLoutpiit.s( ) 

{ 

return  opeiatoi_specs() — total_outputs(): 

}; 

Dictionarylterator  SB_ADT_COMPONENT::adt_operatorJterator() 

{ 

return  operator_specs( ) — iteiator( ); 

}; 

Dictionarvlterator  SB_ADT_COMPONENT;;adt  Jt.erat.or() 

{ 

return  adt_usage() — tvpeJdjterator(); 

}; 

Boolean  SB_ADT.COMPONENT::piocess.tvpe  Jnfo() 

{ 

//  icll  each  operaior  to  iipdolf  lis  lype  usage  lists 

I j  lltey  iniurn  updait  llie  adi  lists 

Dictionarylterator  next  .operator— ad t .operator  Jterator{); 
while(next_operat.or.nioreData()) 

{ 

((SB.ADT_OPERATOR  *)(Entity  *)next-operator())^ 

process-tvpe  Jnfo(  this ) ; 

}; 

return  TRUE; 

}; 

int  SB-ADT-COMPONENT::num-genericJvpes() 

{   , 

int  tlie_num=0; 
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Dictionary  It  era  tor  next  .opera  tor=adt_operat  or  Jterator(); 
while(next_operator.nioreData( ) ) 

{ 

the_num=the_mini  + 

((SB_ADT_OPERATOR  *)(Entity  *)next.operator())- 
num_generic_types{ ) ; 

}; 

//  7}ow  gel  an  lierator  for  ilie  adi  generics  list 


Dictionarylterator  iiextJd=SB.COMPONENT::generic_usage()-* 
typeJdJterator(); 

wliile(nextJd.nioreData()) 

{ 

SB_TYPE.USAGE  *the-usage=(SB_TYPE_USAGE*)(Entity  *)nextid(); 
SB_TYPE_NAME  *the_typejiame=the_usage^type_name(); 
if(the_tvpe_name— tvpe_code()==SB.GENERIC.TYPE) 

{ 

thejium  =  tliejuini++; 

}; 
}; 

return  thejium; 

}; 


Boolean  SB_ADT-COMPONENT::filter(SB-ADT .COMPONENT  *librarv.unit; 

{ 

//  apply  addilional  filUr  operations  to  the  library  unit 
II  to  see  if  the  component  can  be  rejected.    True  means 
II  that  it  may  still  be  a  match.  False  indicates  no  match 

return  TRUE; 

}; 
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#  include  "sball  .hxx" 

#  include  "sbextern.h" 


SB_ADT.COMPONENTXIBRARY::SBj^DT.COMPONENTXIBRARY(APL  *theAPL) 

Object(theAPL) 

{ 

}; 


SB_ADT.COMPONENTXIBRARY::SB_ADT.COMPONENTXIBRARY()  :  Object() 
{ 

SB-COMPONENT J)ICTIONARY  *new.adt.component.dictionary= 
new  SB_COMPONENT_DICTIONARY(); 

the.adt  .component  .dictionary  = 

ne\v_adt  .component -dictionary — findTRef(); 

Dictionary  +ne\v_niain_library=iiew  Dictionary(OC.integer, 

OC-dictionary, 

TRUE, 

FALSE); 

the_main_library=ne\v_main-library^findTRef(); 

}; 

void  SB_ADT_COMPONENTXIBRARY::Destrov(Boolean  aborted) 

{ 

adt._component_dictionary() — Destroy  (aborted); 

//  now  musi  tieraie  ihrough  the  multi-attrihule  tree  of 
II  dicliovaryKs  io  desiioy  each  one  of  ihem 

Dictionary  *by_num_adts; 
Dictionary  *by_nuni_operators; 
Dictionary  ♦by_nuni_totaLinputs; 
Dictionary  *byjium_generics; 
Dictionary  ♦by_num-totaLoutput.s; 
Dictionary  *leaLdictionary; 

by_num_adts=:main_library(); 

Dictionary  Iterator  next_by_num-adt(by_num_adts); 

while(next_bv_num.adt.moreData()) 

{ 

by _num-operators=( Dictionary  *)( Entity  *)next-by_num_adt(); 

//  componenis  ituisl  have  at  least  as  many  operators  as  the  query 
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Dictionarylterator  next_by_iium_operators(by_num_operators); 

while(next_by_num_operators.moreData()) 

{ 

by_num_generics=(Dictionary  *)(Eiitity  *) 

next_by_iium_opeiatois(); 

Dictionarylterator  next_by_iiuin_generics(by_num_generics); 

while(next_by_nuni_generics.moreData()) 
{ 

by_iium_totaLoutputs=(Dictionary  *)(Entity  *) 
next-by_iium_generics(); 

Dictionarylterator 

next_by_iium_total_outputs(by_mim_totaLoutputs); 

while(next_bv.num_totaLoutputs.moreData()) 
{ 

by_mim_total_inpiits=(Dictionary  *)(Entity  *) 
next_by_mini_totaLoutput.s(); 

Dictionarylterator 

next_byjiuni_total_inputs(by_num_totaLinputs); 

while(next_bv_num_totaLinputs.moreData()) 

{ 

leaf_dictionary=( Dictionary  *)(Entity  *) 
next_by_num_totaLinputs(); 

leaf.dictionary — Destroy  (aborted); 

}: 
bv.num_totaLinputs^Destrov(  aborted); 

}:    ' 
by  _nuni_totaLoutputs— Destroy  (aborted); 

}; 

by  jium_generics— Destroy  (aborted); 

}; 

bv_jium_adts^Dest  rov(  aborted ) ; 

};  ' 

delete  the_adt_component_dictionary; 
delete  thejiiain_library; 

Object  ::Destro\(  aborted); 

}; 
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void  SB_ADT_COMPONENT_LIBRARY::delet.eObject(Boolean  deallocate) 

{ 

adt.component-dict  ion  ary()—»deleteObject(  deallocate); 

//  now  must  iteraie  through  the  viulti-attribuie  tree  of 
II  dicttonaryies  io  destroy  each  one  of  them 

Dictionary  *by_num_adts; 
Dictionary  *by_num_operators; 
Dictionary  *by-num.totaLinputs; 
Dictionary  *by_num_generics; 
Dictionary  *by_num_total_outputs; 
Dictionary  *leaf_dictionary; 

by_num_adts=maiii_library(); 

Dictionary  Iterator  next_byjiuni.adt(by-num.adts); 

while(next_bv-num_adt.moreData()) 

{  ' 

by_iuini_operators=(Dictionary  ♦)( Entity  *)next_by_num_adt(); 

//  components  must  hare  at  least  as  many  operators  as  the  query 

Dictionary! tera tor  next_byjuim-operators(by-num_operators); 

wliile(next_bv_niini_operators.nioreData()) 

{ 

by _nuiii_generics=( Dictionary  *)(Entity  *) 
next_by  jiuni_operators( ); 

Dictionary  Iterator  next_by_num_generics(by_num_generics); 

while(next_bv_num_generics.moreData()) 
{ 

by _nuni.totaLoiitputs=( Dictionary  *)( Entity  *) 
nextJn_num.generics(); 

Dictionary  Iterator 

next_by_nuni_totaLoutputs(by_iium_totaLoutputs); 

while(next_bv_num-totaLoutputs.moreData()) 
{ 

by_nnm_totaLinputs=(Dictionary  *)(Entity  +) 
nextJ3y_nuni_totaLoutputs(); 

Dictionarylterator 

next_byjium.totaLinputs(by_num_totaLinputs); 

while(next_by.niim.totaLinputs.moreData()) 
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{ 

leaf-dictionary=( Dictionary  *)(Entity  *) 
next-byjium_totaLinputs{); 

leaf_dictionary^deleteObject(  FALSE); 

}; 

by  _iium_total_inputs—»deleteObject  (FALSE); 

}; 

by_num_totaLoutpiits—'deleteObject(  FALSE); 

}; 

by_iium_generics— 'deleteObject(FALSE); 

}; 

by_iium_adt.s— *deleteObject(FALSE); 

}; 

Object::deleteObject  (deallocate); 

}; 

void  SB-ADT_COMPONENT-LIBRARY::putObject(Boolean  deallocate) 

{ 
adt_component-dictionary() — Dictionary  ::putObject(  deallocate); 
main  Jibrary()-^putObject(  deallocate); 

Object  ::putObject(  deallocate); 

}; 


Type  *SB_ADT_COMPONENT_LIBRARY::getDirectType() 

{ 

return  SB_ADT_COMPONENT_LIBRARY.OType; 

}; 

SB_COMPONENTJDICTIONARY 

*SB_ADT_COMPONENTXIBRARY::adt-Component_dictionary(; 

{ 

return  (SB.COMPONENT_DICTIONARY  *)(Entity  *) 
the-adt_component_dictionarv — BindingO; 

}; 

Dictionary  *SB^\DT.COMPONENTXIBRARY::mainJibrary() 

{ 

return  (Dictionary  *)(Entitv  ♦)the_main_library^'Binding(); 

}; 


Boolean  SB^DT_COMPONENTXIBRARY::add(SBJ^DT_COMPONENT  *new .component) 

{ 

Boolean  return_flag=TRUE; 


125 


Dictionary  *by_num_adts; 
Dictionary  *by_nuni_operatois; 
Dictionary  ♦byjiuni.totalJnputs; 
Dictionary  *by_num_generics; 
Dictionary  *by_num_totaLoutputs; 
Dictionary  *leaf.dictionary; 

adt-component-dictionary  ( )— add(ne\v_component ) ; 
adt-component_dictionary()— Dictionary  ::putObject(); 

//  insert  into  the  component  dictionary  was  snccessfnU 
II  so  insert  it  into  the  library 

II  get  the  dictionary  for  the  nuwlxr  of  adt's 

by_nuni_adts=main-libiaiy(); 

//  now  find  the  dictionary  for  adt.operators 

if(bv-nuni_adts— islndex(ne\v  .component  ^nuni_adts())) 

{" 

by jnnii_operators=( Dictionary  *)( Entity  *)(*by_nuni_adts) 
[new.component— nuni_adts( )]; 

) 
else 

{ 

byjium_operators=new  Dictionary(OCJnteger, 

OC.dictionary, 

TRUE, 

FALSE): 

by_num_adts — Insert  (new.component  — 
num_adts(), 
by.num.operators); 

}; 


//  liave  correct  hy.num.operator  dictionary  so  get  the 
II  generic  types  diet. 

if(by_num_operators^isIndex(  new.component — 

num_adt-operators())) 

{ 

byjium_generics=(Dictionary  *)( Entity  *) 
(*byjium_operators) 
[  new.component  — 
num_adt_operators( )]: 

} 
else 
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by_num_generics=iiew  Dictionary(OCJnteger, 

OC-dictionary, 

TRUE, 

FALSE); 


by  Jiuni-operatois— ^Insert  (new.component—* 

num_adt_operators(), 
byjium.generics); 


}; 


//  gol  the  generics  diciionary  so  get  ihe  ioial  base 
II  types  dictionary 
if(by_nuni_generics^islndex(ne\v  .component-^ 

num_generic_tvpes())==TRUE) 

{ 

by_num-totaLoutputs=:(Dictionary  *)(Entity  *) 
(*byjium_generics) 

[new.component  — •num_generic_types( )] ; 

} 
else 

{ 

by_iium_to(aLoiitpiits=:new  Dictionary(OCJnteger, 

OC_dictionary, 

TRUE, 

FALSE); 

by_iiuni_geneiics — lnseit(Me\v_component  — 

num_generic_types( ) , 
by_num_totaLoiitputs); 


}; 


if(by_nuni_totaLoutpiits^ 

islndex(ne\v  .component— tot  al_outputs())==TRUE) 

{ 

by_iium_totaLinputs=(Dictionary  *)(Entity  *) 
(*byjium_totaLoutputs) 

[new.component— *totaLoutputs( )] ; 

} 
else 

{ 

byjium_total_inpiits=new  Dictionary (OCJnteger, 

OC-dictionary, 
TRUE, 
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TRUE); 

by  _num-totaLoutputs^Insert(  new  .component— * 

totaLoutputs(), 
by_iiuni_totaLinput  s) ; 


}; 


if(by_num_totaLinputs— 

islndex(  new  .component  ^total_inputs())==TRUE) 

{ 

leaf-dictionary  =  (Dictionary  *)( Entity  *) 

( *by  jium.total.inputs) 

[new.component— total.inputsO]; 

} 
else 

{ 

leaf_dictionaiy=iiew  Diction aiy(OC-st ring, 

SBJVDT.COMPONENT.OType, 
FALSE, 

FALSE); 

by  .num.totaLin  1)11  ts^Inseit(  new.component  — 

total  Jnputs(), 
leaf.dictionaiy); 

}; 

//  have  to  Uaf  dictionary  so  noiv  insert  the  component  into  it 

leaf.dictionaiy  —  Inser  t(  new.component —component  jianie(), 

new.component); 


byjium.adts— putObject( ): 
byjium.operators — putObject(); 
byjium.totaLinputs— *-putObject(); 
byjium.generics— ►putObjectO; 
by_num_totaLoutputs^putObject(); 
leaf.dictionary — putObject( );; 

return  return  Jlag; 

}; 

voidSBJ^DT.COMPONENTXIBRARY::delele.component(SBj^DT_COMPONENT 

*the.component) 

{ 

Dictionary  *by.num.adts; 
Dictionary  *by_num.operators: 
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Dictionary  *by_num-total_inputs; 
Dictionary  *by_num_generics; 
Dictionary  *by_num_totaLoutputs; 
Dictionary  *leaf_dictionary; 


adt_component  .dictionary  0  —  Remove(the_component^component_name()); 
adt_coniponent_dictionary() — Dictionary  ::putObject(); 


by_num_adts=main_library  ( ) ; 

//  now  find  the  dictionary  foi  adi.operaiors 

if(by_nnm_adts^isIndex(the_component — ^num_adts())) 

{ 

by Juim_operators=( Dictionary  *)( Entity  *)(*by-num_adts) 

[tlie.component— niim_adts( )]; 
//  have  correci  hy-nitm .operator  dictionary  so  get  the 
II  generic  typet,  did. 

if(by_num_operators— 'islndexltlie.component^ 

nuni_adt_operators())) 

{ 

by _nuni_generics=( Dictionary  *)( Entity  *) 
(*byjium_operators) 
[the_component  — 
num_adt_operators( )]; 

//  got  the  generics  dictionary  so  get  the  total  base 
II  fyp(^  dictionary 

if(by_nuni_generics — isIndex(the_component— ► 

num-generic_types())  ==TRUE) 

{ 

by_num_total-Outputs=(Dictionary  *)(Entity  *) 
(*by_num_generics) 

[the_component— num_generic_types()]; 

if(  by_num_totaLoutputs— 
isIndex(the_component— +totaLoutput.s())==TRUE) 

{ 

by _nuni-total_inputs=( Dictionary  *)( Entity  *) 
(*by_nnm_totaLoutputs) 

[the_coniponent-^totaLoutputs()]; 


if(  by.num.totaLinputs^ 

islndex(  t  he_component — totaI_inputs( )  )==TRUE) 

{ 
leaf_dictionary=:(Dictionary  *)(Entity  *) 
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(*by_num_total_inputs) 

[the.coniponent — total_inputs()]; 

//  have  io  leaf  dictionary 

leaf-dictionary— 'Remove(the_component—»componenLjiame()); 
leaf-dictionary— ►putObjectO; 
if(leaf_dictionary— +Cardinality()==0) 

{ 

by-num_total-inputs^ 

Remove(the-component— »total-inputs()); 
by_num-total-inputs— >putObject(); 

leaf-dictionary— ►deleteObject(TRUE); 

if(  by-num. total-in  puts— Cardinality  ()==0) 

{ 

bv-num-total-outpnts — • 

Reniove(the_component— ^total-Outputs()); 

by_nuni_totaLoutputs— ►putObjectO; 

by-nuni-total-inputs— ►deleteObject(TRUE); 

if(bv-num_t.otal-outputs^Cardinality()==0) 

{" 
by_num-generics— * 

Remove(the-component— •■num-generic-typesO); 
by-nuni-generics— i-putObject(); 
by_nani-totaLoutputs— ►deleteObject(TRUE); 

if(bv-nuni_generics— >Cardinality()==0) 

{' 

by-nuni-operators— ' 

Remove(the_component— ►num_adt_operators()); 
by-iium-operators— +putObject(); 
bv-nuni-generics-^deleteObjectO; 

if(bv_num_operators^Cardinalitv()==0) 

{' 

by-iiuni-adts— ► 

Remove(the-Component— ►nuin-adts()); 
by-num_adts— ♦putObject(); 
by-iium-operators— 'deleteObject(); 


}; 


}; 


}; 


}; 
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}; 
); 


}; 
}; 


}; 
}; 


}; 

SB.COMPONENT_DICTIONARY  *SB_ADT_COMPONENTXIBRARY::query( 

SB_ADT_COMPONENT 
*querv_component ) 
{ 

Dictionary  *by_nuin_aclts; 
Dictionary  *by_num_operators; 
Dictionary  *by_num-total_inputs; 
Dictionary  ♦by_nuni_generics: 
Dictionary  *by_num_totaLontputs; 
Dictionary  *leaf_dictionarv: 


SB.COMPONENTJDICTIONAR^'  *query_result=new  SB.COMPONENT J)ICTIONARY(); 

//  m  order  for  a  match  library  iiiusi  have  ai  leasf  as  many  adt's  as 
II  being  requested 

by-num_adts=main_library(): 

Dictionarylterator  next.by juim_adt(by_num-adts, 

FALSE, 
query  .component  —^num_adts( ) ) ; 

while(next_by_num_adt.moreData()) 

{ 

by _num_operators=( Dictionary  * )( Entity  * )next-by_num_adt() ; 

//  components  must  have  at  least  as  many  operators  as  the  query 

Dictionarylterator  next_byjium_operators(byjium_operators, 

FALSE, 
query-component— >num_adt_operators()); 

while(next_by_num_operators.moreData()) 

{ 

by_num_generics=(Dictionary  *)(Entity  *) 
next  -by  Jium-operators( ); 
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Dictionarylterator  next-by_iium_generics(by_num_generics, 

FALSE, 
query  .component —>num_unrecognized_types( 

I 
while(next_bv.num_generics.moreData()) 

{ 

byjium-total_outputs=(Dictionary  *)(Entity  *) 
next_byjium_generics(); 


Dictionarylterator  next_by_]ium_totaLoutputs(byjium_totaLoutputs,  j 

FALSE, 
query  .component— >totaLoutputs() 

wliile(next_bv_iiuni_total_outputs.moreData()) 

{  '  I 

by_num_total_inputs=(Dictionary  +)(Entity  *) 
next.by  Juim-totaLoutpuls(); 

Dictionarylterator  next_by Jium_total_inputs(by.num.totaLinputs, 

FALSE, 
query  .component— >  total-inputs; 

while(next_bv.iiuni_totaLinputs.moreData()) 

{ 

leaf_clictionary=( Dictionary  *)(Entity  *) 
next.byjiiim.total.inputsO; 

Dictionarylterator  next. component (leaf.dictionary); 

while(  next  .component. moreDataO) 

{ 

SB.ADT.COMPONENT  *the.component= 

(SBjVDT.COMPONENT  *)(Entity  *)next.component(); 
if(c]uerv.component-^filter(the.component)==TRUE) 

{ 

quervj-esult— 'add(the.component); 

}; 
}; 

}; 

}; 

//  add  code  here  for  stnianlic  inalching  inlerface 
return  query  j-esult: 
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}; 

void  SB_ADT_COMPONENT_LIBRARY::list.(ofstreami:  outstream) 
adt_component_dictionaiy()-^print  On  (outstream); 

}; 
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#  include  "sball  .hxx" 

#  include  "sbextern.h" 


SB_ADT.OPERATOR::SB_ADT.OPERATOR(APL  *theAPL) 
SB.OPERATOR(theAPL) 


SB_ADT.OPERATOR::SB_ADT-OPERATOR(char  *id)  : 
SB.OPERATOR(id) 


void  SB_ADT_OPERATOR::Destioy( Boolean  aborted) 
SB.OPERATOR::Destroy(aboited); 

void  SB.ADT-OPERATOR::deleteObject(Boolean  deallocate) 
SB-OPERATOR::deleteObject  (deallocate); 

void  SB_ADT-OPERATOR::putObject(Boolean  deallocate) 
SB_OPERATOR:;putObject(deallocate); 

Type  *SB_ADT.OPERATOR::getDirectType( ) 
return  SB^DT_OPERATOR_OType; 

Boolean  SB_ADT_OPERATOR::piocess.t,vpejnfo(SB JVDT.COMPONENT  *adt) 

//  process  iypes  by  checking  local  generic  then  adt.adi  usage  then 
II  adi. generic  usage  before  making  it  unrecognized.    This  will  update 
II  the  adt  usage  dictionaries  as  u'ell 

II  update  all  usage  dictionaryies  for  inputs  and  outputs 

II 

II  first  go  through  all  of  the  inputs 

Dictionary  Herat  or  nextJnputninput_attributes() — idJterator(); 

while(nextjnput.moreData( )) 

{ 

SBJD.DECL  *this_decl=(SBJDJDECL  *)(Entity  *)next Jnput(); 
SB_TYPE_NAME  *this-type_iiame=this_decl^type_name(); 
//  first  see  if  this  id.dtcl  type  is  a  generic 
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if(geneiic-usage() — update(thisJypejiame)==FALSE) 

{ 

//  was  noi  a  generic  1ype  check  the  ADT  generic  list 

if(adt — generic_usage()^update(this.type_name)==FALSE) 

{ 

//  ivas  not  an  adi  generic  so  check  the  adt  list 

if(adt^adt_usage()— Tupdate(tiiis_type_name)==FALSE) 

{ 

//  ivas  not  an  adt  adt  so  put  it  in  its  local  list 

II  based  on  whether  or  not  it  is  recognized 
if(tliis_type_iiame— recognized()==FALSE) 

{ 

//  was  unrecognized  so  try  to  update 

II  the  unrecognized  list  or  add  it  to 

II  the  list 

if(  unrecognized  _type_usage(  )— 

update(this_tvpe_name)==FALSE) 

{ 

//  not  yet  in  list  so  add  it 

unrecognized  _type_usage()-^ 
add-t\pe(this_typejiame— *id(), 
this_type_name); 
//  now  update  it  for  being  used  once 
unrecognized  _type_usage(  )— 
update(this-tvpe_name); 

}; 
} 

else 

{ 
//  this  iype  name  is  recognized  so  update 
II  or  add  it 
if(  recognized_type_usage(  )— 

update(  thisJvpejia  me  )== FALSE) 

{ 
//  not  yet  in  list  so  add  it 
recognized  _type_usage(  )— 

add-type(this_type_name— -id(), 
t.his_type_nanie); 
//  now  update  it  for  being  used  once 
recognized_type_usage(  )^ 
update(this_type_name); 

}; 
}; 

}; 

}; 

}: 
Dictionarylterator  next_output=output_attributes()— ^idJterator(); 
while(  next  _out  put. nioreDataO) 
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{ 

SBJD_DECL  *this_decl=(SBJD_DECL  *)(Entity  *)next.output(); 
SB_TYPE_NAME  *this_type_name=:this_decl— »^type_name(); 

//  first  see  if  ihis  id.ded  type  is  a  generic 
if(generic_usage()— 'update(this_t.ype_name)==FALSE) 

{ 

//  was  not  a  generic  type  check  the  ADT  generic  list 

if(adt— geneiic_usage()— ►update(this_typejiame)==FALSE) 

{ 

//  loas  not  an  adt  generic  so  check  the  adt  list 
if(adt— »adt_usage()— 'update(this_type_iiame)==FALSE) 
{ 

//  was  not  an  adt  adt 

j I  so  put  it  in  its  local  list 

II  based  on  whether  or  not  it  is  recognized 

if(this_tvpe_nanie— 'recognized()==FALSE) 

{ 

//  was  unrecognized  so  try  to  update 
II  the  unrecognized  list  or  add  it  to 
II  the  list 
if(uniecognized_type_usage()-^ 

update(this_type_iiame)==FALSE) 

{ 

//  not  yet  in  list  so  add  it 
uniecognized_type_usage()— « 
add_type(this_typejiame— *id(), 
this_type_name); 
//  now  update  it  for  being  used  once 
unrecognized  _type_usage()^ 
update(this_type_iiame); 

}; 

//  now  update  the  adt  list  as  well 

if(adt^uniecognized-type_usage()— * 
update(this_typejiame)== FALSE) 

{ 

//  not  yet  in  list  so  add  it 
adt^unrecognized_type_usage()— ► 
add_type(this_type_iiame— >id(), 
this_type_name); 
//  now  update  it  for  being  used  once 
adt^unrecognized_type_usage()— <■ 
update(this_tvpe_iiame); 

}; 
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}; 
}; 

return  TRUE; 


else 

{ 

//  this  lype  name  is  recognized  so  update 

j I  or  add  it 

if(  recognized  _type_usage( )— >■ 

update(this_type_name)==:  FALSE) 

{ 
//  7)0/  yet  tn  itsi  so  add  it 
recognized  _type_usage()—» 

add_t.ype(this_type_name— +id(), 
this_type_name); 
//  now  update  for  being  used  onece 
recognized  _type_usage()^ 
update(tliis_tvpe_name); 

}; 

//  now  update  the  adi  usage  list 
if(adt — recognized_type_usage()-^ 
update(this_tvpej"iame)==FALSE) 

{ 

//  vol  yei  in  list  so  add  it 
adt — -recognized-type-UsageO— ♦ 
add_type(this_typejiame— >id(), 
thisJypeaiame); 
//  now  update  for  being  used  onece 
adt — 'recognized  _type_usage( )— ► 
update(this_type_name); 

}; 
}; 


}; 
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#include  "sball.hxx" 
#  include "sbextern.h" 


SB_ADT_OPERATOR-DICTIONARY::SB_ADT.OPERATOR.DICTIONARY(APL  *theAPL) 

Dictionary  ( the  APL) 

{ 

}; 


SB_ADT.OPERATOR-DICTIONARY::SB_ADT.OPERATOR.DICTIONARY()  :  Dictionary 

(OCJnteger,  //  key 

SB_ADT.OPERAT0 

TRUE, 

TRUE) 

{ 

}; 

void  SB_ADT_OPERATOR_DICTIONARY;:Destioy(Boolean  aborted) 

{ 

Dictionarylterator  next _operator( this); 
while(next_operator.moreData( )) 

{ 

((SB_ADT.OPERATOR  *)( Entity  +)next_operator())^Destroy(aborted); 

Dictionary: :  Destroy  ( aborted ) ; 

}; 

voidSB_ADT_OPERATOR_DICTIONARY::deleteObject(Boolean  deallocate) 
{ 

Dictionarylterator  next_operator(this); 
while(next_operator.moreData( )) 

{ 

((SB_ADT.OPERATOR  *)( Entity  *)next.operator())-^deleteObject(FALSE); 

}; 

Dictionary  ::deleteObject(  deallocate); 

}; 

void  SB_ADT_OPERATOR.DICTIONARY::putObject(Boolean  deallocate) 
{ 

Dictionarylterator  next_operator(this); 
•while(  next -operator. moreDataO) 

{ 

((SB_ADT_OPERATOR  *)(Entity  ♦)next.operator())^putObject(deallocate); 

}; 
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Dictionary  ::put  Object  (deallocate); 

}; 


Type  *SB_ADT_OPERATOR-DICTIONARY::getDirectType() 

{ 
return  SB_ADT_OPERATOR_DICTIONARY.OType; 

}; 

void  SB_ADT.OPERATORJDICTIONARY::add(SB_ADT.OPERATOR  *op) 
{ 

Insert  (op— numJiiput.s( ), op); 

}; 

voidSB_ADT_OPi:RATOR_DlCTIONARY::append(SB_ADT_OPERATOR-DICTIONARY 

*ne\v_dict) 

{ 

//  gei  an  litraior  for  the  dictionary  ihen  insert  each  operator  into 
11  the  dictionary.  Finally  delete  the  input  dictionary 

Dictionary  Iterator  next_operator=ne\v_dict^iterator(); 
while(next_operator.moreData()) 

{ 

SB_ADT_OPERATOR  *the_operator= 

(SB_ADT.OPERATOR  *)( Entity  *)next.operat.or(); 
this^add(the_operator); 

}; 

next_operator.Reset( ); 

//  destroy  the  dictionary  new.dict  hut  not  lis  members 

new  .diet — Dictionary::  Destroy  (FALSE): 

}; 

void  SB^DT_OPERATOR_DICTIONARY::printOn(ofstream^outstream) 

{ 

Dictionarylterator  next_operator=iterator(); 

while(next_operator.nioreData()) 

{ 

((SB_ADT_OPERATOR  *)(Entitv  *)next.operator())-^printOn(outstream); 

}; 
}; 


int  SB^DT_OPERATOR-DICTIONARY::num() 
{ 

return  (int)Cardinalitv():  //  cast  to  ml  (no  need  for  long) 

); 
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int  SB_ADT.OPERATOR_DICTIONARY::totalJnput.s() 

{   _ 
int  total=0; 

Dictionarylterator  next_operator=iterator(); 

while(next.operator.moreData()) 

{ 

totaI=total  + 

((SB_ADT_OPERATOR  *)(Entity  *)nextjoperator())— numJnputs(); 

}; 

return  total; 

}; 


mtSB^DT_OPERATOR_DICTIONAR^'::totaLoutputs() 

{ 

int  total=0; 

Dictionarylterator  next_operator=iterator(); 

while(next_operator.nioreData()) 

{ 

total=t.otal  + 

((SB.OPERATOR  *)(Entity  *)iiext_opeiat.or())^num.outputs(); 

}; 

return  total; 

}; 


Dictionarylteratoi-  SB_ADT_OPERATOR_DICTIONARY::iterator() 

{ 

return  Dictionat\itpratoi((Dictionarv  *)this); 
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#  include  "sball.hxx" 

#  include  "sbextern.h" 


SB.COMPONENT::SB.COMPONENT(APL  *theAPL)  :  Object(theAPL) 
{ 

}; 

SB_COMPONENT::SB.COMPONENT(char  *id)  :  Object() 

{ 

the_component_name=iiew  char[strlen(id)+l]; 

strcpy(the_component_name,id); 

SB_KEYWORD.DICTIONAm'  *iie\v_key\void_dictionary=new 
SB_KEYWORD_DICTIONARY(); 

the_key\vord_dict  ion  ai\=  new  Jcey  word -dictionary — findTRef(); 


SB.TEXT.OBJECT  *new.psdl.text=new  SB-TEXT_OBJECT(); 
the-psdl_text=new_psdl_text — findTRef(); 

SB_TEXT_OBJECT  *newjmp^pec.text=iiew  SB_TEXT.OBJECT(); 
theJnip_spec_text=new  jmp_spec_text — findTRef(); 

SB.TEXT.OBJECT  *newJmp_body_text-iiew  SB-TEXT-OBJECT(); 
the  Jmp.body_text  =  new  Jmp.bodyJext — 'findTRef(); 

SB.TEXT.OBJECT  *new JnformaLdescript.ion=new  SB_TEXT_OBJECT(); 
theJnformaLdescription=new_inforinaLdescription— +findTRef(); 

SB.TEXT.OBJECT  *new  Jormal.description=uew  SB.TEXT.OBJECT(); 
tlieJ"orinal_description  =  new_formaLdescription^findTRef(); 

SB.TEXT.OBJECT  *ne\vjiorniJormal.description=new  SB_TEXT_OBJECT() 
tliejiorni_formaLdescription=new_norm_formaLdescription— <-findTRef(); 

SB_TYPE.USAGE.DICTIONARY  *newjecognized-type.usage= 

new  SB_TYPE_USAGEJDICTIONARY(); 
thej-ecognized_type.usage=new  j-ecognized  Jype  jjsage— ►findTRef(); 

SB.TYPE_USAGE.DICTIONARY  *new_unrecognized.type.usage= 

new  SB_TYPE.USAGEJDICTIONARY(); 
the.unrecognized.type.usage=newainrecognized  J.ypeaisage-^findTRef(); 

SB.TYPE.USAGE.DICTIONAR^'  *new.generic.usage=new 
SB_TYPE.USAGEJ3ICTI0NARY(); 

the_generic.usage=new  .generic  aisage — -findTRefO; 
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}; 


void  SB_COMPONENT::Destrov(Boolean  aborted) 

{ 

psdLtext()—>  Destroy  (aborted); 
imp_spec_text() — Destroy  (aborted); 
imp_body_text()— Destroy  (aborted); 
informaLdescription()-^  Destroy  (aborted); 
formaLdescription()— ►Destroy  (aborted); 
norm_formaLdescription()—'Destroy  (aborted); 
recognized_type_usage()—>  Destroy  (aborted); 
unrecognized  _type_usage()—*  Destroy  (aborted); 
keyword-dictionary  0^  Destroy  (aborted); 
generic_usage() — Destroy  (aborted); 

cielete  the.component.name; 
delete  the_key  word  .dictionary; 
delete  the.psdl.text; 
delete  theJmp-spec.text; 
delete  theJmp.body.text; 
delete  theJnformaLdescription: 
delete  the  JormaLdescription : 
delete  the_norm_formaLdescription; 
delete  the_recognized .type .usage; 
delete  the.unrecognized. type. usage; 
delete  the.generic.usage; 


}; 


Object::  Destroy  (aborted) 


void  SB.COMPONENT::deleteObject(Doolean  deallocate) 

{ 

psdl.textO— deleteObject(FALSE); 
imp_spec_text()^deleteObject(  FALSE); 
imp.body.textO— deloteObject(FALSE); 
informaLdescription()—deleteObject(  FALSE); 
formaLdescription()-^deleteObject(  FALSE); 
norm_formaLdescription()^deleteObject(  FALSE); 
recognized.type.usage()—'deleteObject(  FALSE); 
unrecognized  .type.usage()—^deleteObject(FALSE); 
keyword.dictionaryO — deleteObject(  FALSE); 
generic_usage()—deleteObject(  FALSE); 
Object  ::deleteObject(  deallocate); 

}; 

void  SB.COMPONENT::putObject(Boolean  deallocate) 

{ 

psdl.text()—putObject(  deallocate); 
imp-spec.text()-^putObject(deallocate); 
imp.body.textO — put  Object  (deallocate); 
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informal-description  ()-^putObject(deallocate); 
formaLdescription()-^putObject(  deallocate); 
norm_formaLdescription()— ^putObject(deallocate); 
recognized_type_usage()— ►putObject(deallocate); 
unrecognized  _type_usage()—>putObject(  deallocate); 
keyword_dictionary()—^putObject(  deallocate); 
generic  _usage()^putObject(  deallocate); 
Object  ::putObject(  deallocate); 

}; 


SBJvEYWORD-DICTIONARY  *SB_COMPONENT::keyword-dictionary() 

return  ((SB_KEYWORD-DICTIONARY  *)(the.keyword-dictionary— Binding())); 

SB_TEXT_OB.]ECT  *SB_COMPONENT::psdLtext() 

return((SB-TEXT-OBJECT  *)(the.psdLtext^Binding())); 

SB_TEXT_OBJECT  *SB_COMPONENT::imp_spec.text() 

return((SB.TEXT_OBJECT  *)(theJmp_spec_text— Binding())); 

SB_TEXT_OBJECT  *SB.COMPONENT::imp.body.text() 

return((SB_TEXT_OBJECT  *)(theJmp-body_text— Binding())); 

SB.TEXT.OBJECT  *SB.COMPONENT::informaLdescription() 

return((SB.TEXT-OBJECT  *)(tlie_informaLdescription-*Binding())); 

SB.TEXT.OBJECT  *.SB.COMPONENT::foimaLdescription() 

returii((SB_TEXT_OBJECT  *)(theJormaLdescription^Binding())); 

SB.TEXT.OBJECT  *SB.COMPONENT::norm_formaLdescription() 

returii((SB_TEXT_OBJECT  *)(thejiorm_forniaLdescription— 

BindingO)); 

SB.TYPE.USAGEJDICTIONARY*  SB_COMPONENT::recognized.type.usage() 
return  (SB.TYPE-USAGEXIICTIONARY*) 
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thej-ecognized_tvpe_usage-^Binding(); 

}; 

SB_TYPE.USAGEJ)ICTIONARY*  SB.COMPONENT::unrecognized-typejusage() 

{ 

return  (SB.TYPE.USAGEJDICTIONARY*) 

the_unrecognized  Jvpe  .usage— BindingO; 

}; 

SB_TYPE.USAGE_DICTIONARY*  SB-COMPONENT::generic.usage() 

{ 
return  (SB_TYPE_USAGE_DICTIONARY*)the^enericjLisage— Binding(); 

}; 

Boolean  SB.COMPONENT::addJ<evword(char  *keyword) 

{ 

return  kevword.dictionarvO — add(kev\void); 


int  SB.COMPONENT::num.uniecogiiized_t.vpes( ) 

{ 

return  int(unrecognized_tvpe.iisage() — num()); 

}; 

int  SB.COMPONENT::totaLtvpe.s( ) 
{ 

return  num_unrecognized_type.s(  )+ 
recognized -type  _usage() — mini( ); 

}; 


void  SB.COMPONENT::inseit_generics(  SB.TYPE.USAGEJDICTIONARY  *new.generic-usage) 
{ 

if(  new.generic  .iisage^  NULL) 

{ 

SB_COMPONENT:;generic_usage()— 'append(ne\v  generic  Jjsage); 

}; 
}; 

char  *SB.COMPONENT::coniponent-jiame() 

{ 

return  tlie_component  Jiame: 

}; 

void  SB_COMPONENT::add_text(ifstieamc^'  psdl,  ifstream.k  spec,  ifstreamcSi  body) 

{ 

psdl_text() — apiiend(psdl); 
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imp_spec_te\'t()^append(spec); 
imp_body_text() — append(body] 


}; 
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#  include  "sball  .hxx" 

#  include  "sbextern.h" 


SB.COMPONENT JDICTIONARY::SB.COMPONENTJDICTIONARY(APL  ♦theAPL)  :  f 

Dictionary  (theAPL) 


SB.COMPONENT_DICTIONARY::SB-COMPONENT_DICTIONARY()  :  Dictionary 
centring,  //  KEY 

SB.COMPONENT.OType 

TRUE, 

FALSE)  I 


Type  *SB_COMPONENT-DICTIONARY::getDirectType() 
return  SB.COMPONENT_DICTIONARY_OType; 

void  SB.COMPONENT_DICTIONARY::Destroy(Boolean  aborted) 
//  first  dcsiroy  all  of  ihe  references  in  llic  diciwnary 
Dictionarylterator  next-componeiit(this); 

while(next. component. moreDataO) 

{ 

((SB_COMPONENT  *)( Entity  *)next_component())^Destroy(aborted); 


Dictionary::  Destroy  (aborted) 


}; 


void  SB_COMPONENT.DICTIONARY::deleteObject(Boolean  deallocate) 

{ 

//  first  delete  all  of  the  references  in  the  dictionary 

Dictionarylterator  next_component(this); 

while(next_component. moreDataO) 

{ 

((SB.COMPONENT  *)(Entitv  *)next_component())^deleteObject(FALSE); 

]; 

Dictionary  ::deleteObject(deallocate); 
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}; 

void  SB.COMPONENTJDICTIONARY::putObject(Boolean  deallocate) 

{ 

//  firsi  pul  all  of  the  references  tn  the  dictionary 

Dictionarylterator  next _component( this); 

while(next_component.moreData()) 

{ 

((SBXOMPONENT  *)(Entitv  *)next_component())-+putObject(deallocate); 

}; 

Dictionary  ::putObject(  deallocate); 

}; 


Boolean  SB.COMPONENT_DICTIONARY::add(SB_COMPONENT  *new .component) 
{ 

Boolean  retuin_flag; 

if(  Dictionary  ::isIndex(ne\v_coniponent -^component  Jiame())==FALSE) 

{ 

//  keyword  is  not  yet  m  the  dictionary  so  insert  it 

Dictionary  ::lnsert(ne\v_coinponent^coniponent_name(),new_component); 
returnJlag=TRUE: 

} 
else 

{ 

return  Jlag= FALSE; 

}; 

return  return.flag; 

}; 

SB.COMPONENT  *SB.COMPONENT  J)ICTIONARY::query(char  *name) 

{ 

SB.COMPONENT  *return-Coniponem~NULL; 

if(Dictionarv::isIndex(nanie)  =  =:TRUE) 

{ 

return.component=:(SB-COMPONENT  *)(Entity*)(*this)[name]; 

}; 

return  return.coniponent; 

}; 

void  SB.COMPONENT.DICTIONARY::printOn(ofstreami:outstream) 
{ 
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I 


); 


Dictionarylterator  next  .component  = 
Dictionarylterator(tliis); 

while(next_component.moreData()) 

{   ^ 
int  i; 

SB.COMPONENT  *the.component=(SB_COMPONENT  *)(Entity  *)next.component();     J 
outstream  <^  the_component-^component_name();  ■ 

for(i=strlen(the_component— *component_name());i  <  DEFAULT_NAME^IZE;  i++) 

{ 
outstream  <C  "  "; 

'•  i 

outstream  <C  "   "; 

char  *informaLdesc=(the_component— >informaLdescription())— *text(); 

i=0;  I 

while(informaLdesc[i]^NULL  kSc  informaLdesc[i]^'\n') 

{ 

outstream  -C  informaLdesc[i]; 

i++: 

}; 

outstream  <C  "\n"; 


I 
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#  include  "sball.hxx" 

#  include  "sbextern.h" 

SB_EXCEPTI0NJ)ICTI0NARY.:SBJ:XCEPTI0N_DICTI0NARY(APL  *theAPL) 

Dictionary  (theAPL) 

{ 

}; 

void  SB_EXCEPTION_DICTIONARY::Destroy(Boolean  aborted) 

{ 

Dictionarylterator  next _exception( this); 
while(next_exception.moreData()) 

{ 

delete  (char  *)next_exception(); 

}; 

Dictionary::  Destroy  (a  boiled): 


void  SB-EXCEPTION_DICTIONARY::deleteObject(Boolean  deallocate) 
Dictionary  ::deleteObject  (deallocate); 

void  SB_EXCEPTIONJ)ICTIONARY::putObject(Boolean  deallocate) 
Dictionary  ::putObject(  deallocate); 

Type  ♦SB.EXCEPT10NJ:)ICTI0NARY::getDirectType() 
return  SB_EXCEPTION  .DICTIONARY _OType; 


SB.EXCEPT10NJDICT10NARY::SB.EXCEPTI0N X)ICTIONARY()  :  Dictionary  (OC^trin^ 
/  KEY 

OC-string, 

TRUE, 

FALSE) 


Boolean  SB_EXCEPTIOX  J3ICTI0NARY::add(char  *exceptionid) 
{ 
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Boolean  retuin_flag; 

if(  Dictionary  ;:islndex(  except  ionJd)=  =  FALSE) 

{ 

//  ercepiiou-td  is  noi  yet  m  the  dictionary  so  insert  it 

Dictionary::Insert(exceptionJd,""); 

returnJlag=TRUE; 

} 
else 

{ 

return_flag=:  FALSE; 

}; 

return  return_flag; 

}; 

Boolean  SB.EXCEPTION  J)ICTIONARV::append(SB_EXCEPTION_DICTIONARY 

♦  dictionary) 

{ 

Boolean  return_flag=:TRUE; 

Dictionary  Iterator  next  Jd=dictionary — iterator(); 

while(next.id.nioreData()  .^Cl^'  return_flag==TRUE) 

{ 

if(add((char  *)next_id())=  =  FALSE) 

{ 

return  Jlag=FALSE; 

}; 
}; 

dictionary— Destroy(FALSE);  //  delete  the  object  and  deallocate 
return  returnJlag: 

}; 


void  SB_EXCEPTION -DICTION ARY::printOn(ofstream&outstream) 

{ 

Dictionarylterator  next_exception=iterator(): 

while(next_exception.moreData( )) 

{ 

outstream  <C  (char  +)next_exception()  <C  "\n"; 

}; 
}; 
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Dictionarylterator  SB-EXCEPTION _DICTIONARY::iterator( 

{ 

//  use  tagiieraie  since  tag  is  ike  daia 

return  DictioiiarvIterator( this, TRUE); 

}; 
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#  include  "sball  .hxx" 

#  include  "sbextern.h" 

SBJDJDECL::SBJD.DECL(APL  *theAPL)  :  Object (theAPL) 
{ 

}; 

SBJD_DECL::SBJD.DECL(char  *new.theJd, 

SB-TYPE_NAME  *new.typejiame): 

ObjectO 
{ 


theJd=new  char[strlen(ne\v_theJd)+l]; 
strcpy(theJd,ne\v_thejd); 

the_typejianie=ne\v_ty|)ejianie — findTRef( ); 


}; 

void  SBJD_DECL::Destiov(Boolean  aborted) 

{ 
if(the.id7^NULL) 

{ 

delete  theJd; 

}; 

type_iianie( ) — Destroy  (aborted): 
Object::  Destroy  (aborted); 

}; 

void  SBJD.DECL::deleteObject( Boolean  deallocate) 
{ 

type_iiame()^deleteObject(  FALSE); 
Object:  :deleteObject(deallocate); 

}; 

void  SBJD.DECL::putObject(Boolean  deallocate) 
{ 

type_iiame()^put  Ob  ject(  deallocate); 
Object  ::putObiect(  deallocate); 

}; 
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SB.TYPEJ^AME  *SBJD.DECL::type_name() 

{ 

return  ((SB_TYPE.NAME  *)  (the_typejiame-*Binding())); 

}; 


Type  *SB JD-DECL::getDirectType( ) 

{ 
return  SBJD_DECL.OType; 

}; 

void  SBJD_DECL::printOn(ofstream&;  outstream) 

{ 
outstream  <C  theid  <C  "    :      "; 
type_name()-^printOn(outstream); 


}; 


char  *SBJD-DECL::id() 

{ 

return  the  jd; 
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#  include  "sball.hxx" 

#  include  "sbextern.h" 

SBJD_DECL_DICTIONARY::SBJD.DECL-DICTIONARY(APL  *theAPL)  :  Object(theAPL) 
{ 

SBJD_DECLJ)ICTIONARY::SB.ID_DECL-DICTIONARY()  :  Object() 
{ 


Dictionary  *new_dictionary-byJype=  new  Dictionary(SB-TYPE_NAME_OType, 

SBJDJDECL-OType, 
TRUE, 
TRUE); 


the_dictionary_by_type=ne\v -dictionary  .by  .type — findTRef(); 

Dictionary  *new_dictionary.by_id=  new  Dictionary(OC-string, 

SBJD.DECL.OType, 

TRUE, 

FALSE); 


the_dictionary_by_id=new_dictionary.byJd^findTRef(); 

List  *newJd.declaration.list=new  List(SBJD_DECL.OType); 

the  Jd -declaration-list =newJd_declaration.list—findTRef(); 

}; 


void  SBJD_DECL.DICTIONARY::Destroy(Boolean  aborted) 
{ 

Listlterator  next  Jd.decl(id_declaration Jist( )); 
while(next  Jd_decLmoreData( ) ) 

{ 

((SBJDJDECL  *)(Entity  +)nextJd.decl())— Destroy(aborted); 

}; 

dictionary -by  _type()—+Destroy(aborted); 
dictionary.byJd()  — Destroy  (aborted); 
id_deciaration-list() — Destroy  (aborted); 

delete  the.dictionary.by.type; 
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delete  the_dictionary-by-id; 
delete  the Jd_declarationJist; 

Object::  Destroy  (aborted); 


}; 

void  SBJD_DECL_DICTIONARY::deleteObject(Boolean  deallocate) 

Listlterator  next Jd_decl(id_declarationJist()); 
while(nextJd_decl.moreData()) 

{ 

((SBJD_DECL  *)(Entity  *)next Jd.decl())^deleteObject(FALSE); 

}; 

dictionary  _by-type()^deleteObject(  FALSE); 
dictionary -by  _id( )— ^deleteObject(  FALSE); 
id_declaration_list()—deleteObject(  FALSE); 

Object  ::deleteObject(  deallocate); 

}; 

void  SBJD.DECL_DICTIONARY::putObject( Boolean  deallocate) 
{ 

Listlterator  nextJd_decl(id_declarationJist()); 
while(next_id_decl.nioreData( )) 

{ 

((SBJD_DECL  *)(Entity  *)nextid_decl())-^putObject(deallocate); 

}; 

dictionary_by_type()—*'putObject(  deallocate); 
dictionary  _by_id() — putObject(  deallocate); 
id_declaration_list()—putObject(  deallocate); 

Object  ::putObject(  deallocate); 


Type  *SBJD.DECL_DICTIONARY::getDirectType() 
return  SB JDJDECL.DICTIONARY_OType; 

Dictionary  *SBJD.DECL J)ICTIONARY::dictionary_by_type() 
return  (Dictionary  *)(the_dictionary_by_type — Binding()); 

Dictionary  +SBJD_DECL-DICTIONARY::dictionary-by_id() 
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return  (Dictionary  *)(the_dictionary_by_id^Binding()); 

List  *SBJD-DECL.DICTIONARY::id.declaiationJist() 
return  (List  ♦)(the-id-declaration_list— ►Binding()); 

Boolean  SB JDX)ECL_DICTIONARY::add.decl(SBJD-DECL  *deci) 
Boolean  return_flag; 

if(dictionary-by_id()— islndex(decl— id())==FALSE) 

{ 
//  ID  NOT  YET  USED 

dictionarv-by.typeO— Insert  (dec!— type  Jiame(),decl); 
dictionary-by-id()^Insert(decl— id(),decl); 

id_declarationJist()— 'lnsert(decl); 

return  _flag=TRUE; 

} 
else 

{ 

//  id  already  in  use  so  can  not  insert 

return  _flag= FALSE; 

}; 

return  return_flag; 

}; 

void  SBJD.DECL.DICTIONARY::remove.decl(SBJD_DECL  *deci) 

{ 

dictionary_by_type()-^Remove(decl^type_name(),decl); 

dictionary_byJd()— Remove(decl^id(),decl); 
id_declarationJist()-^Remove(id_declaration_list()— Index(decl)); 
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}; 


Boolean  SBJD-DECL-DICTIONARY::add_decl(char  *id,SB_TYPE_NAME  *type_name) 

{ 

Boolean  return_flag; 


if(dictionary.by-id()— +isIndex(id)==FALSE) 

{ 
//  ID  NOT  YET  USED 

II  create  new  SB.ID.DECL 

SBJD_DECL  *decl=new  SBJD_DECL(id,type-name); 


dictionary-by_type()^Insei't(  type-name, decl); 
dict.ionary_by_id()— Insert(id,decl); 

id_declaration_list()— *Insert(decl); 

return  Jlag=TRUE; 

} 
else 

{ 

//  id  already  tn  use  so  can  not  insert 

return  Jlag=FALSE; 

}; 

return  return_flag; 

}; 


Boolean  SB JD_DECL_DICTIONARY::append(SB.ID_DECL_DICTIONARY*dictionary) 

{ 

Boolean  return_flag=TRUE; 

Listlterator  next Jd=dictionary— order  Jterator(); 

while(nextJd.moreData()  kk  return_flag==TRUE) 

{ 
SBJD_DECL  *this.decl=(SBJD_DECL  *)(Entity  *)next-id(); 
return_flag=add_decl(  this.decl  ); 

} 
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/*  next-id. Resetf); 

while  (next-id.  moreDalaf)) 

{ 

SBJDJ)ECL  *this.decl=fSBJDJ)ECL  *) (Entity  *)neit.id(); 
dictionary->remove-decl(ihis.decl); 

dictionary->  Destroy  (FALSE);*/ 

return  return_flag; 

}; 


void  SBJD.DECL_DICTIONARY::printOn(ofstream&  outstream) 

{ 

Listlterator  next_decl=orderJterator(); 
if(next_decl.nioreData()) 

{ 

((SBJD-DECL  *)(Eiitity  *)  next-decl())— printOn(outstream)i 

while(next_decl.nioreData()) 

{ 
outstream  <C  "  A^^"' 
((SBJD.DECL  ♦)(Entitv  *)  next.decl())— printOn(outstream); 

}; 
}; 


int  SBJDJDECL.DICTIONARY   nurnO 

return  (int)( dictionary _by.type()^Cardinality()); 

Dictionarylterator  SBJD_DECL_DICTIONARY::idJterator() 
return  DictionaryIterator(dictionary_by  Jd()); 

Dictionarylterator  SB JD_DECL-DICTIONARY::typeJterator() 
return  DictionaryIterator(dictionary_by_type( )); 

Listlterator  SBJD J)ECL.DICTIONARY::orderJterator() 
return  ListIterator(id_declarationJist()); 


SBJD.DECL  *SBJD-DECL.DICTIONARY::querv.id(char  *query_name) 
{ 
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SBJD-DECL  *return.value=NULL; 
if(dictionary_by_id()—*'isIndex(  query  .name)) 

{ 

return_value=(SB JD_DECL  *)(Entity  *)dictionary_byJd()- 

get  Entity  Element  (querv.name); 

}; 

return  return_value; 

}; 
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#  include  "sball  .hxx" 

#  include  "sbextern.h" 


SBJCEYWORD_DICTIONARY::SB.KEYVVORD_DICTIONARY(APL  *theAPL)  : 

Dictionary(theAPL) 

{ 

}; 

SB_KEYWORD-DICTIONARY::SB_KEY\VORDJ)ICTIONARY()  :  Dictionary  (OC^tring,  // 

KEY 

OC-string, 
TRUE, 

FALSE) 


Type  *SB.KEYVVORD-DICTIONARY::getDirectType() 
return  SB_KEYWORD_DICTIONARY.OType; 

void  SB_KEY\VORD.DICTIONARY::Destroy(Boolean  aborted) 
Dictionary::  Destroy  (aborted); 

void  SB_KEYWORD.DICTIONARY::deleteObject(Boolean  deallocate) 

Dictionary  ::deleteObject(  deallocate); 

void  SB_KEY\VORD_DICTIONARY::putObject( Boolean  deallocate) 
Dictionary:  :putObject(deallocate); 

Boolean  SB_KEYWORDJDICTIONARY::add(char  ^keyword) 
Boolean  return_flag; 

if(  Dictionary  ::islndex(  keyword  )== FALSE) 

{ 

//  keyword  is  not  yet  in  the  dictionary  so  insert  it 

Dictionary  ::Insert(  keyword.""); 
return  Jlag=TRUE; 

} 
else 

{ 

return  _flag= FALSE; 
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}; 

return  return  .flag; 

}; 

void  SB_KEYWORD_DICTIONARY::printOn(ofstream&  outstream) 

{      .     . 

Dictionarylterator  next Jceyword=iterator( ) ; 

while(next_keywoid.moreData()) 

{ 

outstream  <^  (char  *)next_keyword()  <C  "\n"; 

}; 
}; 


Dictionarylterator  SB.KEYWORDJDICTIONARY::iterator() 

{ 

//  use  tagtterate  since  tag  is  the  data 

return  Dictionary  Iterator(  this  .TRUE ) ; 

}; 


161 


#include  "sball.hxx" 
#include  "sbextern.h" 

SB-KEYWORD_LIBRARY::SB_KEYWORD-LIBRARY(APL  *theAPL)  :  Dictionary(theAPL) 
{ 

}; 

SBJvEYVVORD-LIBRARY::SB_KEYWORD-LIBRARY()  : 
Dictionary(OC^tring,SB_COMPONENTJ)ICTIONARY.OType,TRUE,FALSE) 

{ 

}; 

void  SB_KEYWORD_LIBRARY::query(ifstream&;  instream,  ofstreamfc  outstream) 

{ 

char  the-key\vord[256]; 

Dictionary  *the_result=new 

Dictionary(OC-string,OCJnteger, FALSE, FALSE); 

while(!instream.eof()) 

{ 

instream  ^  the_keyword; 

instream  ^  ws;  //  get  the  newJine  character  or  eof 

if(this— isIndex(the_key\vord)==TRUE) 

{ 

SB.COMPONENTJDICTIONARY  *the-component_dictionary= 

(SB_COMPONENT_DICTIONARY  *) 
this— get  Entity  Element(t  he-keyword); 
Dictionarylterator  next-component= 

DictionaryIterator(the_component-dictionary); 
//  update  the  result  dictionary 

while(next_component.moreData()) 

{ 
SB.COMPONENT  *the.component=(SB-COMPONENT  *) 

(Entity  *)next_component(); 
char  *the_component_name; 
the.component-name=the_component— >component_name(); 

if(the_result — 

islndex(  the  .component  _name)==TRUE) 

{   ^ 

iiit  new_number=  int( 

the_result-^getIntegerElement(thej:omponent_name)] 


1; 


thej-esult— Remove(the_component_name); 
the -result^ 

hisert(the_componentJiame,new_number); 

} 
else 

{ 
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thejesult — Insert(the_component-name,-l); 

}; 
}; 
}; 
}; 

//  create  new  dictionary  ordered  by  number  of  times  found 
Dictionary  *final_result=:new 

Dictionary(OC-integer,OC-string,TRUE,TRUE); 

Dictionarylterator  next  .results  Dictionary  Iterator(  the  j-esult); 
Dictionary  Iterator  next  _result_tag=DictionaryIterator(the_result, TRUE); 
while(next_result.moreData()) 

{ 

char  *component=(chai'  *)next_result_tag(); 

int  times_used=int(next_iesult()); 

final_result— Insert  (times  _used, component); 

}i 
Dictionarylterator  next  Jinal_result= Die tionaryIterator(final_result); 
while(next_final_result.moreData()) 

{ 

char*  componentJiame=(char  *)next_finaLresult(); 

SB_COMPONENT  *tlie.component=SB_MAINXIBRARY^query(component_name) 

//  SBMAIN. LIBRARY  IS  GLOBAL 

int  i; 

outstream  <C  the_component^component_name(); 

for(i=strlen(the_component— .component_name());i  <  DEFAULT_NAME-SIZE;  i++) 

{ 

outstream  <C  "   "; 

}; 

outstream  <C  "  "; 

char  *informaLdesc=(the_coniponent— ►informaLdescriptionO)— »^text(); 

i=0_; 

while(informaLdesc[i]9!^NULL  kk  informaLdesc[i]^'\n') 

{ 
outstream  <C  informaLdesc[i]; 

i++; 
}; 

outstream  <C  "\n"; 

}; 

the_result^^Destroy(); 
final_result— 'DestroyO; 

}; 

Boolean  SB J<EYWORDXIBRARY::add_component(SB_COMPONENT  *new.component) 

{ 

SBJvEYWORDJDICTIONARY*  l<eywordJist=new_component-^keyword_dictionary(); 
Dictionarylterator  next_keyword=keywordJist-^iterator(); 
while(next_key\vord.moreData()) 

{ 

char  *the_keyword=(char  *)next_keyword(); 
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if(this— ►isIndex(the_keyword)=:=TRUE) 
{ 

SB_COMPONENT_DICTIONARY 
*the.dictionary=(SB.COMPONENTJ)ICTIONARY  *) 
this— ►get  Entity  Element(the_key  word); 
the_dictionary^add(new_component); 
the_dictionary — Dictionary::putObject(); 

} 
else 

{ 

//  this  IS  a  new  keyword  so  make  a  new  sb. component. did 

II  and  add  it  to  the  key.word  library 

SB.COMPONENTJDICTIONARY*  new.dictionary^new 
SB.COMPONENTX)ICTIONARY(); 

nevv_dictionary^add(new_coniponent); 
new  .dictionary— Dictionary  ::putObject( ); 
this— Insert  (the_kev  word,  new.dictionarv); 

}; 
}; 

return  TRUE; 

}; 

void  SB_KEY\VORD.LIBRARY::delete.component(SB.COMPONENT  *the.component) 

{ 

SBJvEYWORDJDICTIONARY*  keyword Jist=the.component-^keyword_dictionary(); 
Dictionarylterator  next  J\eyword= key  word  Jist—'iteratorO; 
while(next_keyword.nioreData()) 

{ 

char  *theJceyvvord=(char  *)nextJ<eyvvord(); 
if(this— ishidex(tlieJ<eyword)==TRUE) 

{ 

SB_COMPONENTJ)ICTIONARY 
*the.dictionary=(SB.COMPONENT_DICTIONARY  *) 
this— get  Entity  Element(the_key  word); 
the_dictionary^Reniove(the_component^component_name()); 
the.dictionary— ►putObjectO; 
if(the.dictionary^Cardinality()==0) 

{ 

this— ^Remove(the_key  word); 

the.dictionary— deleteObject(TRUE); 
} 

}; 
}; 
}; 

void  SBJvEYWORD_LIBRARY::Destroy(Boolean  aborted) 
{ 
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Dictionarylterator  next_component_dictionary=iterator(); 
while(next-component_dictionary.inoreData()) 

{ 

((SB.COMPONENT-DICTIONARY  *)(Entity  *)next.component-dictionary())- 

Destroy(  aborted ) ; 

} 
Dictionary  ::Destroy(  aborted); 

}; 

void  SB.KEYWORD.LIBRARY::deleteObject(Boolean  deallocate) 

{ 

Dictionarylterator  next_component_dictionary=iterator(); 
while(next_component_dictionary.inoreData()) 

{ 

((SB.COMPONENTJDICTIONARY  *)(Entity  *)next.component_dictionary())- 
deleteObject(FALSE); 

} 
Dictionary:  :deleteObject(deallocate); 

}; 

void  SB-KEYWORD-LIBRARY::putObject(Boolean  deallocate) 

{ 

Dictionary:  :putObject(  deallocate); 

}; 

Dictionarylterator  SBJvEYWORD_LIBRARY::iterator() 

{ 

return  DictionaryIterator(this,TRUE);  //  return  tag  iterate 

}; 

void  SB-KEYWORD_LIBRARY::list(ofstream&  outstream) 

{ 

Dictionarylterator  next_keyword=iterator( ); 
while(next_keyword.moreData()) 

{ 

outstream  ^  (char  *)next_keyword()  «C  "\n"; 

} 

}; 
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#  include  "sball.hxx" 

#  include  "sbextern.h" 

SB_LIBRARY::SB.LIBRARY(APL  *theAPL):  Object(theAPL) 
{ 

}; 

SBXIBRARY::SB_LIBRARY(char  *name,  char  *table)  :  Object(name) 
{ 

SB_COMPONENT_DICTIONARY  *new.component.dictionary= 
new  SB_COMPONENTJDICTIONARY(); 

the_component_dictionary= 

new_component_dictionaiy^findTRef(); 

the_recognized_types=NULL; 

update  jecognized_types(  table); 


SB.OPERATOR.COMPONENTXIBRARY  *new_operator.componentJibrary= 
newSB_OPERATOR-COMPONENTJ.IBRARY(); 

the.operator  . component  Jibrary= 

new_operator-coniponentJibrary^findTRef(); 

SB_ADT-COMPONENT_LIBRARY  *new.adt_componentJibrary=new 
SB_ADT.COMPONENTJ.IBRARY(); 

the_adt_coniponent_library=ne\v_adt_component_library— ►findTRefO; 

SB-KEYWORDXIBRARY  *new .keyword Jibrary^new 
SBJvEYVVORD_LIBRARY(); 

the  Jiey  word  Jibrary=:new  Jcey  word  Jibrary—findTRef(); 

}; 

SBJIECOGNIZED.TYPES  *SB.LIBRARY::recognized.types() 

{ 

return  (SB_RECOGNIZED_TYPES  *)(Entitv  *)the-recognized.types-*Binding(); 

); 

void  SB_LIBRARY::update_iecognized_types(cliar  *file) 

{   , 
if(thejecognized_types9!^NULL) 

{ 

recognized  _tvpes(  )^deleteObject( ); 

}; 
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SB-RECOGNIZED.TYPES  *new.type_matrix=new 

SB_RECOGNIZED_TYPES(file); 
the_recognized_types=newjtypejnatrix^findTRef(); 

} 

void  SB_LIBRARY::  Destroy  (Boolean  aborted) 

{ 

operator_component_library()— Destroy  (aborted); 

adt_component_library()—*Destroy(  aborted); 

component_dictionary()—^Destroy(  aborted); 

recognized -typesO—"  Destroy  (aborted); 

keywordJibraryO^  Destroy  (aborted); 

delete  the_adt_component_library; 
delete  the_operator_componentJibrary; 
delete  the_component_dictionary; 
delete  the_keyword_library; 
delete  the  jecognized  .types; 

Object:. Destroy  (aborted); 

}; 

void  SBXIBRARY::deleteObject( Boolean  deallocate) 

{ 

operator.component_library()—deleteObject(  FALSE); 
adt_component_library()-^deleteObject(  FALSE); 
component_dictionary()—>deleteObject(  FALSE); 
recognized  _types()—deleteObject(  FALSE); 
keywordJibrary()^deleteObject(  FALSE); 

Object  ::deleteObject(  deallocate); 

}; 

void  SBXIBRARY::putObject(Boolean  deallocate) 

{ 
operator-component  Jibrary()—putObject(deallocate); 
adt_componentJibrary()—>putObject  (deallocate); 
component_dictionary()— +Dictionary::putObject(deallocate); 
recognized_types()— •■putObject(deallocate); 
keyword  Jibrary()—putObject(deallocate); 

Object  ::putObject(  deallocate); 

}; 


Type  *SB.LIBRARY::getDirectType() 

{ 
return  SB_LIBRARY.OType; 

}; 
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SBJ^DT.COMPONENT-LIBRARY  *SB_LIBRARY::adt.component_library() 

return  (SB_ADT.COMPONENT.LIBRARY  *) 
( the  ^dt  .component  Jibrary—^BindingO); 


SB.OPERATOR.COMPONENTXIBRARY  *SBXIBRARY::operator.component.library() 

return  (SB.OPERATOR-COMPONENTXIBRARY  *) 
(thejoperatoF-componentJibrary^BindingO); 


SBJ<:EYW0RDXIBRARY  *SB-LIBRARY::keywordJibrary() 

return  (SB_KEYW0RD_LIBRARY  *)tlie.keywordJibrary-^Binding(); 

Boolean  SBXIBRARY::add(SB.COMPONENT  *new_component) 
Boolean  retuin_flag=FALSE; 
//  first  ensure  that  this  component  name  is  not  already  in  use 

if(  component-dictionary  0 — add(new_component)==TRUE) 

{ 

component-dictionary  ()— Dictionary  ::putObject(); 

//  name  not  m  use  so  continue  processing 

II  add  the  component  to  the  keyword  libraries 

return  Jlag=:TRUE; 

keywordJibrary()— ►add-component(new-component); 
keywordJibraryO— putObject(); 

if(new-component— getDiiectType()==SB-ADT_COMPONENT-OType) 

{ 

return -flag=adt-componentJibrary()^ 

add((SB^DT-COMPONENT  *)nevv -component); 

} 
else 

{ 

return  _flag=operator  .component  Jibrary()—> 

add((SB.OPERATOR-COMPONENT  *)new.component); 

}; 
}; 

return  return  Jlag; 
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}; 

void  SB-LIBRARY::delete.component(SB.COMPONENT  *the-Component) 

{ 

key  word  Jibrary()-^delete_component(the_component); 

keyword  Jibrary()-^putObject( ); 

if(the_component— getDirectType()==SBJ\.DT-COMPONENT.OType) 

{ 

adt-component  Jibrary  ( )— ► 

delete.component((SB^DT-COMPONENT  *)the-Component); 

} 
else 

{ 

operator-Component  Jibrary()—> 

delete.component((SB-OPERATOR-COMPONENT  *)the.component); 

}; 

component_dictionary()^Remove(the_component— ♦component_name()); 
component_dictionary( )— ♦putObject( ); 
the.component — deleteObject(TRUE); 

}; 


void  SB_LIBRARY::component_list(ofstream<5i  outstream) 

{ 

adt_componentJibrary()— 'list  (outstream); 
operator  .component-library  ( )—list(  outstream); 

}; 

SB.COMPONENT-DICTIONARY  *SB-LIBRARY::query(SB.COMPONENT 
*query -Component) 

{ 
SB.COMPONENT-DICTIONARY  *return-dictionary; 

if(query.component— getDirectType()==SB-ADT_COMPONENT-OType) 

{ 

return-dictionary=adt-Component  JibraryO— ' 

query((SB-ADT -COMPONENT  +)query  .component); 

} 
else 

{ 

return.dictionary=operator.component  Jibrary()— ' 

query((SB-OPERATOR-COMPONENT  *)query .component); 

); 

return  return-dictionary; 

}; 

SB.COMPONENT  *SB J.IBRARY::query(char  *componentjiame) 


169 


return  component-dictionary ( )^query(component_name); 
void  SB_LIBRARY::keyword_query(ifstieam.t  instream.ofstreamfc  outstream) 
key  word  Jibrary()—»query(instream,outstream); 

SB.COMPONENT-DICTIONARY  *SB.LIBRARY::component_dictionary() 

return  (SB.COMPONENT.DICTIONARY  *)(Entity  *) 
the_component -dictionary — Binding(); 

void  SBXIBRARY::key\vord-list(ofstreani&  outstream) 
key  word  JibraryO^list  (outstream); 

void  SB-LIBRARY: :typeJist(ofstreamife  outstream) 
adt-Component-library()^list(  outstream); 

void  SB-LIBRARY;:operator-list(ofstream.i:  outstream) 
operator-Component-libraryO  —  list  (outstream); 

void  SB_LIBRARY::query(SB-COMPONENT  *query .component ,ofstream&;  outstream) 

SB.COMPONENT-DICTIONARY*  the jesult=query(query .component); 
the_result^printOn(outstream); 
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#  include  "  shall .  hxx" 

#  include  "sbextern.h" 


SB.OPERATOR::SB.OPERATOR(APL  *theAPL)  :  SB_COMPONENT(theAPL) 
{ 

}; 


SB_OPERATOR::SB.OPERATOR(char  *id)  :  SB-COMPONENT(id) 
{ 

SBJD_DECL_DICTIONARY  *new  jnput.attributes=new  SB JD_DECLJDICTIONARY(); 


SBJD_DECL_DICTIONARY  *new_output_attributes=new  SB JDX)ECL_DICTIONARY(); 
SBJ:XCEPTI0N_DICTI0NARY  *new.exceptions=new  SB -EXCEPTION  JDICTIONARY; 

the  Jnput_attributes=new  input  ^ttributes-^findTRef(); 
the_output_attributes=new  jDutput^ttributes-^findTRef(); 
the_exceptions=new  exceptions— 'findTRefO; 

states  _flag=FALSE; 

} 

SBJD_DECL_DICTIONARY  *SB-OPERATOR::input.attributes() 

return  (SB-ID_DECL_DICTIONARY  *)(the.input_attributes^Binding()); 

SBJD_DECL_DICTIONARY  *SB.OPERATOR::output_attributes() 

return  (SB.ID_DECL.DICTIONARY  *)(the.output_attributes^Binding()); 

Boolean  SB-OPERATOR: :states() 
return  states_flag; 

SB_EXCEPTIONJDICTIONARY  *SB.OPERATOR::exceptions() 

return  (SB_EXCEPTION_DICTIONARY  *)(the-exceptions-^Binding()); 
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Boolean  SB-OPERATOR: :add.inputs(SBJD_DECL_DICTIONARY  *input_dictionary) 

{ 

Boolean  return-flag; 


//  add  new  declarations  to  the  declaration  list 
return_flag=input-attributes()—'append(input -dictionary); 

return  returnJlag; 

}; 

Boolean  SB.0PERAT0R::add.outputs(SBJDJ3ECL-DICTI0NARY  *output_dictionary) 

{ 

Boolean  return-flag; 

return  _flag=output^ttributes()—i-append(output -dictionary); 

return  return-flag; 

}; 

void  SB.OPERATOR::set^tates() 

{ 

states  Jlag=TRUE; 

}; 

Boolean  SB.OPERATOR::add.exceptions(SB.EXCEPTION  JDICTIONARY 

♦exception-dictionary ) 

{ 

Boolean  return-flag; 

return  _flag=exceptions() — append(exceptionjdictionary); 

return  return-flag; 

}; 

void  SB-OPERATOR: :Destroy(Boolean  aborted) 
{ 

input_attributes()—*  Destroy  (aborted); 

output  _attributes()— Destroy  (aborted); 

exceptions()— ►Destroy  (aborted); 

delete  the Jnput -attributes; 
delete  the-output-attributes; 
delete  the-exceptions; 

SB-COMPONENT::Destroy(aborted); 
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}; 

void  SB-OPERATOR: :deleteObject(Boolean  deallocate) 
{ 

input_attributes()—'deleteObject(  FALSE); 
output_attributes()—^deleteObject(  FALSE); 
exceptions()— <-deleteObject(FALSE); 
SB_COMPONENT::deleteObject(deallocate); 

}; 

void  SB.OPERATOR::putObject.( Boolean  deallocate) 
{ 

input_attributes()^putObject(  deallocate); 

output  _attributes()—putObject(  deallocate); 

exceptions()—i-putObject(  deallocate); 
SB.COMPONENT::putObject(deallocate); 

}; 

void  SB_OPERATOR::printOn(ofstream&:  outstieam) 

{ 

outstream  <  "OUTPUTING   INTERFACE  FOR  OPERATOR   "; 

outstream  <C  this— ^component^name( )  <C  "\n"; 

outstream  <C  "GENERIC  ATTRIBUTES\n\n"; 
SB_COMPONENT::generic-Usage()^printOn(outstream); 

outstream  <  "\nINPUT  ATTRIBUTES\n\n"; 
input_attributes()— +printOn(outstream); 

outstream  <  "\nOUTPUT  ATTRIBUTES\n\n"; 
output_attributes()^printOn(outstream); 

outstream  <C  "\nUNRECOGNIZED  TYPES\n\n"; 
unrecognized  _type_usage() — printOn(  outstream); 

outstream  <  "\nRECOGNIZED  TYPES\n\n"; 
recognized  _type_usage(  )^printOn(  outstream ) ; 

outstream  <  "\nSTATES\n\n"; 
if(statesJlag==TRUE) 

{ 

outstream  <  "YES\n"; 

} 
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else 

{ 
outstream  <C  "NO\n"; 

}; 


outstream  <  "\nEXCEPTIONS\n\n"; 

exceptions()^printOn(outstream); 

outstream  <  "OUTPUTING  THE  PSDL  TEXT\n\n"; 

outstream  <C  psdLtext()— text()  <  "\n"; 

outstream  <  "OUTPUTING  THE   INFORMAL  DESCRIPTION\n\n"; 

outstream  <C  informaLdescription()— i-textO  <C  "\n"\ 

outstream  <  "OUTPUTING  THE  FORMAL  DESCRIPTION\n\n"; 

outstream  <C  formaLdescriptioii()^text()  <C  "Xit-"', 

outstream  <C  "OUTPUTING  THE  NORMALIZED  FORMAL  DESCRIPTION\n\n' 

outstream  <C  norm_formaLdescription()-^text()  <C  "\n"; 

outstream  <  "OUTPUTING  THE  ADA  SPEC\n\n"; 

outstream  <C  imp_spec_text()— -textO  <C  "\n"; 

outstream  <  "OUTPUTING  THE   ADA   BODY\n\n"; 

outstream  <C  imp.body_text( )  —  text()  <C  "\n"; 


}; 


int  SB.OPERATOR::num.inputs() 

{ 

return  input_attributes()— mim( ); 


}; 


hit  SB_OPERATOR::num.outputs() 

{ 

return  output_attributes() — -numO; 


}; 


Dictionarylterator  SB_OPERATOR::input_iterator() 

{ 

return  input_attributes()— typeiterator(); 

}; 

Dictionarylterator  SB-OPERATOR: :outputJterator() 

{ 

return  output_attributes() — typeJterator(); 

}; 


Dictionarylterator  SB.OP ERATO R;:exceptionJterator() 

{ 

return  exceptions()^iterator(); 

}; 
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int  SB-OPERATOR: :num-generic_types() 

{ 

//  get  an  iterator  for  the  type^decl  list 

II  and  any  spec  that  is  not  a  procedure  is  a  generic  type 

int  count=0; 

Dictionarylterator  next  Jd=SB_COM PON ENT::generic_usage()—> 
type  Jd  Jterator( ) ; 

while(nextJd.nioreData()) 

{ 

SB.TYPE_USAGE  *the.usage=(SB.TYPE.USAGE*)(Entity  *)nextJd(); 

SB_TYPE-NAME  *the_type-iiame=the_usage-+type_name(); 

if(the_type_iiame^type_code()==SB_GENERIC-TYPE) 

{ 

count=count-f  4-; 

}; 
}; 

return  count; 

}; 
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#  include" shall. hxx" 

#  include  "sbextern.h" 


SB_OPERATOR.COMPONENT::SB.OPERATOR.COMPONENT(APL  *theAPL) 
SB_OPERATOR(theAPL) 


SB.OPERATOR_COMPONENT::SB.OPERATOR.COMPONENT(char  *id)  : 
SB_OPERATOR(id) 


void  SB_OPERATOR.COMPONENT::Destroy(Boolean  aborted) 
SB_OPERATOR::Destroy(aborted); 

void  SB-OPERATOR.COMPONENT::deleteObject(Boolean  deallocate) 
SB.OPERATOR::de]eteObject(deallocate); 

void  SB.OPERATOR-COMPONENT::putObject( Boolean  deallocate) 
SB.OPERATOR::putObject(deallocate); 

Type  *SB.OPERATOR-COMPONENT::getDirectType() 
return  SB.OPERATOR.COMPONENT.OType; 

Boolean  SB.OPERATOR_COMPONENT::process_typeinfo() 

//  update  all  usage  diciionaryies  for  inputs  and  outputs 

II 

II  first  go  through  all  of  the  inputs 

Dictionarylterator  next  Jnput=input-attributes()^idJterator(); 

while(next  Jnput.moreDataO) 

{ 

SBJD_DECL  *this.decl=(SBJD_DECL  *)( Entity  *)next Jnput(); 

SB.TYPE-NAME  *this_type_name=this_decl— type_name(); 
//  first  see  if  this  id.decl  type  is  a  generic 
if(generic_usage( ) — •update(this_tvpe  jiame)  =  =  FALSE) 

{ 

//  was  not  a  generic  type  so  put  it  in  the  usage  list 

11  based  on  whether  or  not  it  is  recognized 
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if(this_type_name-*recognized()==:  FALSE) 

{ 

//  was  unrecognized  so  try  to  update 

II  the  unrecognized  list  or  add  it  to 
II  the  list 
if(unrecognized_type_usage()^ 

update(this-type_iiame)==FALSE) 

{ 

//  not  yet  in  list  so  add  it 

unrecognized  _type-usage()— 

add_type(this_type_name— ►idO, 
this_type_name); 
//  now  update  it  for  being  used  once 
unrecognized  _type_usage()^ 

update(this_type_name); 

); 
} 

else 

{ 

//  this  type  name  is  recognized  so  update 

II  or  add  it 

if(recognized_type_usage()  — 

update(this_typejiame)=::=  FALSE) 

{ 

//  not  yet  in  list  so  add  it 

recognized  _type_usage()—^ 

a.dd_type(this_type_name— +id(), 
this.typejiame); 
//  now  update  it  for  being  used  once 
recognized -type.usageO^ 

update(this_type_name); 

}; 
}; 

}; 
}; 

Dictionary  Iterator  next_output=output_attributes()— ►id  Jterator(); 
while(next_output.inoreData()) 

{ 
SBJD_DECL  ♦this.decl=(SBJDJDECL  *)(Entity  *)next.output(); 
SB_TYPE_NAME  *this.type_uan-ie=this_decl— type_name(); 

//  first  see  if  this  id.decl  type  is  a  generic 
if(generic_usage()—>update(this_type_name)=:= FALSE) 

{ 

//  was  not  a  generic  type  so  put  it  in  the  usage  list 

II  based  on  whether  or  not  it  is  recognized 

if(thisJype_name—recognized()== FALSE) 

{ 

//  was  unrecognized  so  try  to  update 
II  the  unrecognized  list  or  add  it  to 
II  the  list 


IT 


if(unrecognized_type_usage()— * 

update(this_tvpe_iiame)==FALSE) 

{ 

//  not  yet  in  list  so  add  it 
unrecognized  _type-usage()^ 
add_type(this_type_naine^id(), 
this_type_name); 
//  now  update  it  for  being  used  once 
unrecognized -type.usageO—' 
update(this_tvpe_name); 

); 
} 

else 

{ 

//  this  type  nan)e  is  recognized  so  update 
II  or  add  it 
if(recognized_type_usage() — 

update(this_tvpejiame)==FALSE) 

{ 

//  not  yet  in  list  so  add  it 
recognized  _type_usage( )— * 

add_type(this_typejiame— 'id(), 
this_type_name); 
//  now  update  for  being  used  onece 
recognized  .type  _usage()—' 
update(this_type_nanie); 

}; 
}; 

}; 

}; 

return  TRUE; 

}; 

Boolean  SB_OPERATOR.COiMPONENT::filter(SB.OPERATOR.COMPONENT  *library_unit) 

{ 

//  apply  additional  filter  operations  to  the  library  unit 

II  to  see  if  the  component  can  be  rejected.    True  means 
II  that  it  may  still  be  a  match.  False  indicates  no  m.atch 


return  TRUE; 


}; 
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#  include  "  sball .  hxx" 

#  include  "sbextern.h" 


SB.OPERATOR_COMPONENTXIBRARY::SB_OPERATOR-COMPONENTXIBRARY(APL 

*theAPL)  : 

Object(theAPL) 

{ 

}; 


SB.OPERATOR-COMPONENTXIBRARY::SB.OPERATOR.COMPONENTXIBRARY() 

ObjectO 
{ 

SB_COMPONENT_DICTIONARY  *new.operator_component_dictionary= 
new  SB.COMPONENTJDICTIONARYO; 

the_operator-component_clictioiiary= 

new_operator_component_dictionary— findTRef(); 

Dictionary  *new_state.dictionaTy=new  Dictionary(OCJnteger, 

OC-dictionary, 

TRUE, 

FALSE); 

the_state_dictionary=new^tate-dictionary-^findTRef(); 

Dictionary  *new_non_state_dictionary=new  Dictionary(OCJnteger, 

OC-dictionary, 
TRUE, 

FALSE); 

the_non-state_dictionary=ne\v  jion -State  .dictionary— *findTRef(); 

}; 

void  SB_OPERATOR.COMPONENTXIBRARY::Destroy(Boolean  aborted) 

{ 

operator  _component_dictionary()—' Destroy  (aborted); 

//  now  must  iterate  through  the  multi- attribute  query 
II  dictionary  tree 

Dictionary  *leaf.dictionary; 
Dictionary  *by_num_inputs_dictionaiy; 
Dictionary  *by_num_unrecognized .dictionary; 
Dictionary  *by-num.outputs.dictionary; 

byjiuni-inputs_dictionary=state_dictionary(); 
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Dictionarylterator  nextJnput_dictionary= 

Dictionary  Iterator(  by  jium.inputs.dictionary); 

while(next_input_dictionary.moreData()) 

{ 

by_num-unrecognized-dictionary=: 

(Dictionary  *)( Entity  *)next_input_dictionary(); 


Dictionarylterator  next _outputs.dict(byjium_unrecognized .dictionary); 


\ 

I 


while(next_outputs_dict.moreData())  ■ 

{ 

by_num_outputs_dictionary=(Dictionary  *)(Entity  *) 

next-Outputs_dict(); 


Dictionarylterator  nextJeaf_dict(byjium-outputs_dictionary); 

while(next_leaf_dict.moreData()) 

{ 

leaf-dictionary=( Dictionary  *)( Entity  *) 
next_leaf_dict(); 

Dictionarylterator  next  .component  (leaf-dictionary); 


while(next_component.moreData()) 

{ 

((SB.OPERATOR-COMPONENT  *)(Entity  *)next-component())- 
Destroy(  aborted ) ; 

}; 

leaf-dictionary — Destroy  (aborted); 

}; 

by_num-Outputs-dictionary—*  Destroy  (aborted); 

}; 

by-num-unrecognized-dictionarv—*Destroy(  aborted); 

}; 

by_num-inputs-dictionary— ►Destroy  (aborted); 


by_num_inputs.dictionary=non-state-dictionary(); 


nextJnput_dictionary= 

Dictionary  Iterator(  by  _num_inputs_dictionary); 

while(  next-input-dictionary.  moreDataO) 

{ 

by_num_unrecognized_dictionary= 

(Dictionary  ♦)(Entity  *)next_input_dictionary(); 
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Dictionarylterator  next_outputs.dict(by_num_unrecognized_dictionary); 
while(next_outputs_dict.moreData()) 

{ 

by_num-outputs.dictionary=(Dictionary  *)(Entity  *) 

next_outputs_dict(); 


Dictionarylterator  nextJeaf_dict(byjium-outputs-dictionary); 

while(nextJeaf_dict.moreData()) 

{ 

leaf-dictionary=( Dictionary  *)(Entity  *) 

next  Jeaf_dict(); 
Dictionarylterator  next_component(leaf_dictionary); 


while(  next.component  .moreData( ) ) 

{ 

((SB_OPERATOR-COMPONENT  *)(Entity  *)next.component())- 

Destroy(  aborted); 

}; 

leaf-dictionary — Destroy  (aborted); 

}; 

by  _num_outputS-dictionary^  Destroy  (aborted); 

}; 

by  _iium-unrecognized_dictionary—*Destroy  (aborted); 

by_num_inputs_dictionary — -Destroy  (aborted); 

delete  the_operator .component-dictionary; 
delete  the-State_dictionary; 
delete  the-non-state_dictionary; 

}; 

void  SB_OPERATOR_COMPONENTXIBRARY::deleteObject(Boolean  deallocate) 

{ 
operator -Component-dictionary  () — deleteObject(deallocate); 

Dictionary  *leaf-dictionary; 
Dictionary  *by_num-inputs_dictionary; 
Dictionary  *by-num_unrecognized-dictionary; 
Dictionary  *by_num_outputs-dictionary; 

by_num_inputs_dictionary=state_dictionary(); 


Dictionarylterator  nextJnput_dictionary(by_num-inputs-dictionary); 
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while(next  Jnput_dictionary.moreData()) 

{ 

by_num_unrecognized_dictionary= 

(Dictionary  +)(Entity  *)next.Jnput_dictionary(); 


Dictionary  Iterator  next_outputs_dict(byjium_unrecognized_dictionary); 

while(next_outputs_dict.nioreData()) 

{ 

by_num_outputs_dictionary=(Dictionary  *)(Entity  *) 
next_outputs_dict( ); 


Dictionarylterator  nextJeaf_dict(by_num_outputs_dictionary); 

while(next_leaf_dict.moreData()) 

leaLdictionary=( Dictionary  *)(Entity  *) 
next  Jeaf_dict(); 

Dictionarylterator  next. component (leaf.dictionary); 


while(next.component.moreData()) 

{ 

((SB.OPERATOR.COMPONENT  *)(Entity  *)next.component())- 

deleteObject(  FALSE); 
leaf-dictionary — deleteObject(  FALSE); 
by.num.outputs_dictionary—>-deleteObject(  FALSE); 

}; 

by  _num_unrecognized_dictionarv—'deleteObject(  FALSE); 

}; 

by_num_inputs-dictionary—deleteObject(  FALSE); 


byjium_inputs_dictionary=non_state-dictionary(); 


nextJnput_dictionary= 

DictionaryIterator(by_num_inputs-dictionary); 

while(next_input_dictionary.moreData()) 

{ 

byjium_unrecognized_dictionary= 

(Dictionary  *)(Entity  +)next_input_dictionary(); 


Dictionarylterator  next _outputs_dict( by jium .unrecognized .dictionary); 

while(next_outputs_dict.moreData()) 
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{ 

by_iium.outputs_dictionary=(Dictionary  *)(Entity  *) 
next_outputs_dict(); 


Dictionarylterator  nextJeaf_dict(by_iium_outputs_dictionary); 

wliile(nextJeaf_dict.moreData()) 

{ 

Ieaf_dictionary=( Dictionary  *)(Entity  *) 

next  Jeaf_dict(); 
Dictionarylterator  next  .component  (leaLdictionary); 


while(next_component.moreData()) 

{ 
((SB.OPERATOR.COMPONENT  *)(Entity  *)next_component())- 
deleteObject(  FALSE); 

}; 

leaLdictionary— 'delet.eObject(FALSE); 

}; 

by  _nuni_outputs_dictionary^deleteObject(  FALSE); 
byjium_unrecognized_dictionary—deleteObject(  FALSE); 

}; 

by_num_inputs_dictionary—+deleteObject(  FALSE); 
Object  ::deleteObject(  deallocate); 

}; 

voidSB_OPERATOR-COMPONENTXIBRARY::putObject(Boolean  deallocate) 

{ 

operator_component_dictionary()^putObject(  deallocate); 

state_dictionary()— '■putObject(deallocate); 
nonjstate-dictionary()—*putObject(  deallocate); 
Object  ::putObject(  deallocate); 

}; 


Type  *SB.OPERATOR_COMPONENTXIBRARY::getDirectType() 

{ 

return  SB.OPERATOR-COMPONENTXIBRARY-OType; 

}; 

SB.COMPONENTJDICTIONARY 

*SB.OPERATOR.COMPONENTXIBRARY::operator_component_dictionary() 

{ 
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return  (SB.COMPONENT.DICTIONARY  *)( Entity  *) 
the  japerator.component -dictionary —••BindingO; 


Dictionary  *SB.OPERATOR-COMPONENTXIBRARY::state.dictionary() 
return  (Dictionary  *)(Entity  *)the^tate-dictionary— ►BindingO; 

Dictionary  *SB-OPERATOR.COMPONENTXIBRARY::non^tate-dictionary() 

return  (Dictionary  *)(Entity  *)tiiejion^tate.dictionary— ♦■BindingO; 


« 


) 


Boolean  SB-OPERATOR.COMPONENTXIBRARY::add(SB_OPERATOR.COMPONENT 

*  new  .component) 

{ 

Boolean  retnrn-flag=:TRUE; 

Dictionary  tleaLdictionary; 

Dictionary  *byjium_inputs_dictionary;  ■ 

Dictionary  *by_num_unrecognized .dictionary; 

Dictionary  *by_num_outputs_dictionary; 

operator_component_dictionary()^add(new_component); 

operator  _component_dictionary()^Dictionary::putObject(); 

//  insert  into  the  component  dictionary  was  successfuU  " 

//  so  insert  it  into  the  library 

if(new_component— ►states()==TRUE) 

{ 

by_num_inputs_dictionary=state_dictionary(); 

} 
else 

{ 

by_nuni_inputs_dictionary=:non_state_dictionary(); 

}; 

//  have  correct  state  dictionary  so  now  find  correct 
II  input  dictionary 

if(by_num_inputs_dictionary — isIndex(new_component— *num_inputs())==TRUE) 

by_num_unrecognized_dictionary=(  Dictionary  *) 
(Entity  *)(*by_num_inputs_dictionary) 
[new.component— ►num_inputs( )] ; 

} 
else 

{ 
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by_num-unrecognized_dictionary=new  Dictionary (OCJnteger, 

OC-dictionary, 
TRUE, 

FALSE); 

by_num_inputs_dictionary — Insert(  new  .component— ► 

numJnputs(), 
by_nuni_unrecognized_dictionary); 


}; 


//  have  correct  by  num  inputs  dictionary  so  get  the 
II  unrecognized  types  diet. 


II  got  the  unrecognized  dictionary 

II  use  num  generics  since  for  a  library  unit  all  unrecognized  types 

II  must  be  generics 

if(by.num_unrecognized_dictionary— 

islndex(  new  .component— num_generic_types())==TRUE) 
{ 

by _num_outputs_dictionary=:( Dictionary  *)( Entity  *) 
(*byjiuni_unrecognized_dictionary) 

[new.component — num_generic_types()]; 

} 
else 

{ 

byjium_outputs_dictionary=:iiew  Dictionaiy(OC_integer, 

OC-dictionary, 

TRUE, 

FALSE); 

by  _num_unrecognized_dictionary—Insert(new  .component —► 

num-generic_types(), 
byjium_outputs_dictionary); 

}; 


if(by_num_outputs_dictionary— ► 

islndex(new  .component — num_outputs())  ==TRUE) 

{ 

leaf_dictionary=( Dictionary  *)( Entity  *) 
(*byjium_outputs_dictionary) 

[new.component — num_outputs( )] ; 

} 
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else 

{ 
leaf_dictionary=new  Dictioiiary(OC-string, 

SB.COMPONENT.OType, 

FALSE, 

FALSE); 

by  _iium_outputs_dictionaiy^Insert(ne\v  .component —► 

num_outputs(), 
leaf-dictionary); 


}; 


//  have  to  leaf  dictionary  so  now  insert  the  component  into  it 
leaf_dictionary^Insert(new_component— component_name(), 

nevv_coniponent); 

leaf.dictionary— putObject(); 
by_num_inputs-dictionary— ^piitObject(); 
byjium_unrecognized_dictionary— ►putObjectO; 
by_num_outputs_dictionary — putObject(); 

return  return_flag; 

}; 


void  SB.OPERATOR-COMPONENTXIBRARY:: 
delete_component(SB_OPERATOR-COiMPONENT  *the_component) 
{ 

Dictionary  *leaf_dictionary; 
Dictionary  *by_num_inputs_dictionary; 
Dictionary  *by_nuiTi-unrecognized_dictionary; 
Dictionary  *by_num_outputs-dictionary; 

operator_component_dictionary()^ 

Remove(the_component — component_name()); 
operator_component_dictionary( ) — putObject( ); 


if(the_component^states()==TRUE) 

{ 

by_num_inputs_dictionary=state_dictionary(); 

} 
else 

{ 

by_num_inputs_dictionarv=:non-state-dictionary(); 

}; 
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//  have  correct  state  dictionary  so  now  find  correct 
II  input  dictionary 

if(by_num-inputs_dictionary— ►isIndex(the.component— ►num_inputs())==TRUE) 

{ 

by _iium_unrecognized_dictionary=:( Dictionary  *) 

(Entity  *)(*by_num_inputs_dictionary) 

[the_component— ►num_inputs()]; 

//  got  the  unrecognized  dictionary 

II  use  num  generics  since  for  a  library  unit  all  unrecognized  types 

II  must  be  generics 

if(by_num_unrecognized_dictionary— >■ 

isIndex(tlie_component— nuni_generic_types())==TRUE) 
{ 

by _num_outputs_dictionary=( Dictionary  *)(Entity  *) 
(*by_num_unrecognized_dictionary) 

[the.component — 'num_generic_types( )] ; 

if(by_num_outputs_dictionary— 

islndex(  the.component — nuni_outputs())==TRUE) 

{ 

leaf_dictionary=:(Dictionary  *)(Entity  *) 
(♦byjium-outputs.dictionary) 
[the.component— num_outputs()]; 

//  have  to  leaf  dictionary 

leaf.dictionary—Remove(  the.component —>componentjiame()); 
leaf-dictionary —putObject( ) ; 
if(leaf_dictionary^Cardinality()  ==0) 

{ 
byjium.outputs.dictionary— *■ 

Remove(the_component^num.outputs()); 
by.num.outputs.dictionary— putObject(); 

if(by.num.outputs.dictionary— +Cardinality()==0); 

{ 

by  Jium.unrecognized. dictionary —> 

Remove(the_component^num.generic.types()); 
byjium.unrecognized.dictionary— <-putObject(); 

if(byjium.unrecognized-dictionary— ►Cardinahty()==0) 

{ 

byjium.inputs.dictionary— ► 

Remove(  the.component— '■num.inputsO); 
by  Jium.inputs-dictionary— ^putObject(); 
byjium_unrecognized.dictionary^-deleteObject(TRUE); 

}; 

by  Jium.outputs.dictionary— 'deleteObject(TRUE); 
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}; 


}; 


}; 


}; 


}; 

leaf-dictionary— deleteObject(TRUE); 


I 


}; 


SB.COMPONENT-DICTIONARY  *SB.OPERATOR.COMPONENT_LIBRARY:: 
query(SB.OPERATOR-COMPONENT  *query-component) 

{ 
SB.COMPONENTJDICTIONARY  *query-result=new  SB.COMPONENT  J)ICTIONARY(); 

Dictionary  *leaf_dictionary; 
Dictionary  *by_nuni-inputS-dictionary; 
Dictionary  *by_num_unrecognized_dictionary; 
Dictionary  *by_num-Outputs-dictionary; 


I 


//  get  the  correct  state.dicttonary  to  start  the  query 
if(querv-component-^states()==TRUE) 

by_num_inputs_dictionarv=state_dictionarv(); 

} 
else 

{ 

by_num_inputs.dictionary=:non_state_dictionary(); 

}; 

//  have  correct  state  dictionary  so  now  find  correct 
II  input  dictionary 

II  for  inputs  must  match  exactly  so  only  get  one  dictionary 

if((bv-num_inputs_dictionary— *isIndex(query_component— ♦num_inputs()))==:TRUE) 

{  ' 

by_num_unrecognized_dictionary= 

(Dictionary  *)( Entity  *)(*by_nuni_inputs_dictionary) 
[query  .component — num_inputs( )] ; 
//  got  the  correct  unrecognized.dictionary  so  iterate  over  it  for 
II  the  output  dictionaries 
Dictionary  Iterator  next_outputs_dict=: 

Dictionary  Iterator(  by  jiuni-unrecognized -dictionary, 
'  FALSE, 
query  .component — 
num_unrecognized-types( )); 

//  loop  through  all  of  the  unrecognized  types  that  are  valid 

while(next_outputs_dict.moreData()) 
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by_iium-outputs_dictionary=(Dictionary  *)(Entity  *) 
next_outputs_dict(); 

//  got  the  outputs  dictionary  so  now  get  the  leaf  dictionarys 

Dictionary  Iterator  nextJeaf_dict= 

DictionaryIterator(by_iium_outputs_dictionary, 
FALSE, 

query  .component— <■ 
num_outputs()); 


while(  next  Jeaf-dict  .moreData( ) ) 

{ 

leaf_dictionary=( Dictionary  *)(Entity  *) 
next  Jeaf-dict(); 

Dictionary  Iterator  next  .component = 
Dictionarylterator(leaf.dictionary); 


//  got  an  output  dictionary  so  iterate 

I j  through  it  and  put  the  components  in  the 

I j  return  result  dictionary 

while(  next-component.  moreData()) 

{ 

SB_OPERATOR_COMPONENT  *the.component= 

(SB.OPERATOR.COMPONENT  *)(Entity  *)next.component(); 

if(  query-Component — filter(tlie.component)==TRUE) 

{ 

query  _iesult—add(  the -Component); 

}; 


}; 
}; 


}; 


//  add  code  to  interface  to  semantic  check  routine  here 
return  query  Jesuit; 

}; 


void  SB.OPERATOR.COMPONENTiIBRARY::list(ofstream&  outstream) 
{ 
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operator_component_dictionary()— ►printOn(outstream); 
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#include  "sball.hxx" 
#include  "sbextern.h" 

SB_RECOGNIZED.TYPES:;SB_RECOGNIZED-TYPES(char  *file)  :  Object() 

{ 

char  new_typejiame[256]; 

int  count=0; 

int  flag_value; 

int  case_sensitive_int; 

Dictionary  *new_iiame_dictionary=new 

Dictionary(OC^tring,OCJnteger,FALSE, FALSE); 

the_name_dictionary=new_iiame_dictionary-^findTRef(); 

ifstream  type_defs(file); 

type.defs  ^  case^ensitive  jnt; 
if(case_sensitiveJnt==0) 

{ 

case  .sensitive^:  FALSE; 

} 
else 

{ 

case_sensitive=TRUE; 

}; 

Boolean  done_flag=:FALSE; 
while(done_flag=  =  FALSE) 
{ 

count++; 

type.defs  >►  newj.ypejiame; 

if(strcmp(new_type_name,"~")/0) 

{ 

char  *store_typejiame; 
if(!case_sensitive) 

{ 

store_type_name=convert_to_upper(  new  _type  .name); 

} 
else 

{ 
store_type_name=new_typejiame; 

}; 

name_dictionary()— Insert  (store_type_name, count); 


} 
else 

{ 
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doneJlag^TRUE; 
count—; 

}; 
}; 

array  _size=:count; 

Array  *new_row_array=new  Array(OC_array,count,l); 
the_row_array=iie\vj-ow^rray — findTRef(); 

Int  row_count=l; 


for(row_count  =  l;row .count  <  array.size+1;  row_count+-t-) 
{ 

Array  *nevv_colum_array=iiew  Array(OC  Jnteger,count,l); 
int  i; 

for(i=l;(i  <  count+l);i++) 

{ 

type.defs  ';^  flag.value; 

new.colum.array — set  Element(i, flag.value); 

} 

row  .array  ()^setElennent(  row  .count, new.colum.array); 

}; 
}; 

SBJlECOGNIZED.TYPES::SBJlECOGNIZED_TYPES(APL  *theAPL)  :  Object(theAPL) 

{ 
} 

void  SB.RECOGNIZED_TYPES::Destrov(Boolean  aborted) 

{  _ 

int  row  .count; 

name-diction  ary()^Destroy(  aborted); 

for(row .counts l;row .count  <  arrayjsize+1;  row_count+-f-) 

{ 

Array  &:row=*(row.array()); 

((Array  *)(Entity  *)row[row .count])— •Destroy(aborted); 

}; 

row.array()— 'Destroy(aborted); 

delete  thejiame.dictionary; 
delete  thej-ow^rray; 

Object::  Destroy  (aborted); 
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void  SB_RECOGNIZED-TYPES::deleteObject(Boolean  deallocate) 

{  , 

int  row  .count; 

name_dictionary()^deleteObject(  FALSE); 

for(row_count=l;row_count  <  array.size+1;  row_count++) 

{ 

Array  (fcrow=*(row_array()); 

((Array  *)(Entity  *)row[row_count])— deleteObject(FALSE); 

}; 

row_array()— deleteObject(FALSE); 

Object  ::deleteObject(  deallocate); 
}i 

void  SB.RECOGNIZED_TYPES::putObject( Boolean  deallocate) 

{   . 

int  row  .count; 

name-dictionary  ()^putObject(deallocate); 

for(row_count=l;rovv .count  <  array.size+1;  row.count++) 

{ 

Array  i:row=*(row_array()); 

((Array  ♦)( Entity  *)row[ro\v .count]) — putObject(deallocate); 

}; 

row.arrayO — putObject(  deallocate); 
Object:  :putObject(  deallocate); 


Type  *SB.RECOGNIZED.TYPES::getDirectType() 
return  SB  JlECOGNIZED.TVPES.OType; 

Array  *SBJlECOGNIZED.TYPES:;rovv.array() 

return  (Array  *)(Entity  *)the.ro\v.array— Binding(); 

Dictionary  *SBJlECOGNIZED.TYPES::name-dictionary() 

return  (Dictionary  *)(Entity  *)thejiame_dictionary— ♦BindingO; 

Boolean  SBJlECOGNIZED.TYPES::map(int  in-map,int  ouLmap) 
Boolean  return.flag=FALSE; 
Array&  rows=*(row.array()); 
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Array&:  colum=*((Array  *)(Entity  *)rows[inanap])i 

if(  int(colum[out_map])==l) 

{ 

returnJlag=:TRUE; 

}; 

return  return_flag; 

}; 

int  SB-RECOGNIZED_TYPES::typejiumber(char  *typeJd) 

{ 

int  return.value=SB.UNRECOGNIZED-TYPE; 
char  *searchJd; 

if(  lease  .sensitive) 

{ 

search  Jd=convert_to_upper(tvpeJd); 

} 
else 

{ 

search  Jd=:typeJd; 

}; 

if(name_dictionary()^isIndex(search_id)) 
{ 

return_value=int(name-dictionary()— getlntegerElement(searchJd)); 

}; 

return  return_valiie; 

} 

char  *SB_RECOGNIZED.TYPES::convert.to.upper(char  *typeid) 

{   _ 
int  i; 

char  *newjd=new  char[strlen(typeJd)+l]; 
for(i=0;i<strlen(typeJd);i++) 

{   , 

if(islower(typeJd[i])) 

{ 

newJd[i]=typeJd[i]  +  'A'-'a'; 

} 
else 

{ 

newJd[i]=typeJd[i]; 

}; 
}; 

newJd[i]  =  NULL; 
return  newJd; 
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}; 


195 


#  include  "sball.hxx" 

#  include  "sbextern.h" 

SB.TYPE_NAME::SB-TYPEJ^AME(APL  *theAPL)  :  Object(theAPL) 
{ 

}; 

SB.TYPE_NAME::SB.TYPE3fAME(char  *newJd,SBJD.DECL_DICTIONARY 

*new_dictionary)  :  Object() 

{ 

theJd=new  char [strlen( new Jd)  +  1]; 
strcpy(the  Jd,new  jd); 


if(new_dictionary==NULL) 

{ 

new_dictionary=  new  SBJD.DECL-DICTIONARY(); 

}; 

theJd_decl_dictionary=new_dictionary— «findTRef(); 

Boolean  found_flag=: FALSE; 

SBJDJDECL  *base-type_decl; 

Dictionarylterator  nextJd_decl=id_decLdictionary()— "-idJleratorO; 

while(next_id_decl.moreData()  kk.  !found_flag) 

{ 

SBJD_DECL  *the.type-decl=(SBJD_DECL  *)(Entity  *)next Jd.decl(); 
if((SB.MAIN.LIBRARY--recognized-types())^ 

type_number(tlie.type.decl— id())  ==SBJASE.TYPE) 

{ 

//  found  the  base  type  decl 

found_flag=TRUE; 
base_type-decl= the -type -decl; 

}; 
_  }; 

if(found_flag) 

{ 

//  has  a  base  type  defined  so  look  it  up 

the-base -type  id=:(base -type -decl— (•type  jiame())—^id() ; 

} 
else 

{ 

the-base-typeJd=theJd; 

}; 

the_base_type.code=(SBJVIAINXIBRARY— 

recognized.types())^type-number(the_base-typeJd); 
the_type_code=(SB-MAINXIBRARY— 

recognized -types())—type_number(the-id); 

}; 
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void  SB_TYPE.NAME::Destroy(Boolean  aborted) 

{ 

if(theJcl^NULL) 

{ 

delete  theJd; 

); 

if(the_base_typeJd) 

{ 

delete  the_base_typeJd; 

}; 


id_decLdictionary()— ►Destroy  (aborted); 
delete  the jd.decl .dictionary; 
Object ::  Destroy  ( aborted) ; 

}; 

void  SB_TYPE_NAME::deleteObject(Boolean  deallocate) 
id_decLdictionary()—*deleteObject(  FALSE); 
Object  ::deleteObject(  deallocate); 

}; 

void  SB.TYPE_NAME::putObject(Boolean  deallocate) 

{ 

id_decl_dictionary()—putObject(  deallocate); 

Object  ::putObject(  deallocate); 

}; 

SBJDJDECLJDICTIONARY  *SB_TYPEJJAME::id.decLdictionary() 

{ 

return  (SBJD.DECL.DICTIONARY  *)(the_id_decLdictionary— Binding()); 

}; 


Type  *SB.TYPEJ^AME::getDirectType() 

{ 
return  SB_TYPEJ^AME.OType: 

}; 

Boolean  SB_TYPEJ^AME::operator  ==(Entity&  other.type) 

{ 

Boolean  return_flag=FALSE; 
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char  *this_base Jd=this— *base_type Jd( ) ; 

char  *thisJd=this— "-idO; 

char  *other-baseJd=:((SB_TYPE_NAME  &;)other .type). base J,ypeid(); 

char  *otherJd=((SB-TYPEJ^AME  &)otherJ;ype).id(); 

if(strcmp(this_baseJd, other-base Jd)=:=0  &;& 
(strcmp(  this  Jd,ot  her  Jd)==0)) 

{ 

return  _flag=TRUE; 

}; 

return  return_flag; 

}; 

Boolean  SB_TYPEJMAME::operator  >(Entity(fc  other.type) 
{ 


Boolean  return_flag=:FALSE; 

char  *this_baseJd  =  this— base_type_id(); 

char  *thisJd=this^id(); 

char  *other_baseJd=((SB_TYPEJ»JAME  ,§i)otherJtype).baseJtypeid(); 

char  *otherJd  =  ((SB_TYPEJ^AME  &)other Jtype).id(); 

if(  strcmp(this_bcise_id,other_baseJd)  <  0) 

{ 

return  _flag= FALSE; 

}    ^ 
else  if(strcmp(this_base_id,other-base_id)  >  0) 

{ 
return  _flag=TRUE; 

}    ^ 
else  if(strcmp(this_id,other.id)<  0) 

{ 

return  _flag=FALSE; 

} 
else 

{ 

return  _flag=TRUE; 

}; 

return  return_flag; 

}; 


void  SB_TYPE_NAME::printOn(ofstreamc^  outstream) 

{ 

outstream  <C  this— ^the_id; 

outstream  <^  "   =   "  <C  type_code(); 

outstream  <C  "    (    "  <  the.base.typeJd  <  "   =   "; 

outstream  <C  base_type_code()  <C  "    )"; 

outstream  <C  "  [  "; 
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id_decl_dictionary()— ••printOn(outstream); 
outstream  <C  "]  "; 


}; 


Listlterator  SB-TYPE_NAME::declJterator() 

{ 

return  id_decLdictionary()^order Jterator( ] 


}; 


int  SB_TYPEJ^JAME::num_decl() 

{  , 

int  return_value; 

if(id-decLdictionary()==NULL) 

{ 

return  _value=0; 

} 
else 

{ 

return_value=id_decl_dictionary()— 'num( 

}; 

return  return_value; 


char  *SB.TYPE_NAME::id() 
return  theJd; 

char  *SB-TYPE^AME::base_typeJd() 
return  the_base_typeJd; 

int  SB_TYPE_NAME::base_type.code() 
return  the_base_type_code; 


int  SB.TYPE_NAME::type.code() 
return  the _type .code; 

Boolean  SB-TYPE.NAME::recognized() 

return  Boolean(base_type-code()7^SB.UNREC0GNIZED-TYPE); 
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}; 
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#  include  "sball.hxx" 

#  include  "sbextern.h" 

SB.TEXT.OBJECT::SB-TEXT.OBJECT(APL  *theAPL)  :  Object(theAPL) 


SB-TEXT.OBJECT::SB_TEXT_OBJECT()  :  Object() 

the_text=new  cliar[l]; 
strcpy(the_text,""); 


Type  *SB.TEXT.OBJECT::getDirectType() 
return  SB-TEXT.OBJECT_OType; 

void  SB_TEXT_OBJECT::Destroy(Boolean  aborted) 

delete  the.text; 
Object::  Destroy  (aborted); 

void  SB_TEXT_OBJECT::deleteObject( Boolean  deallocate) 
Object  ::deleteObject(deallocate); 

void  SB.TEXT_OBJECT::putObject(Boolean  deallocate) 
Object  ::putObject(  deallocate); 

void  SB_TEXT_OBJECT::append(ifstream&:  instream) 
ostrstream  buffer; 

while(!instream.eof()) 

{ 

char  text=:instream.get(); 
if(text9^E0F) 

{ 

buffer. put(  text); 

}; 
}; 

buffer. put(NULL); 
the_text=buffer.str(); 

}; 

void  SB_TEXT.OBJECT::append(char  *instring) 
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{ 

the-text=new  char[strlen(instring)  +  l]; 
strcpy(the_text,instring); 

}; 


void  SB_TEXT_OBJECT::text(ofstream(fc  outstream) 
{ 

outstream  <C  the_text; 

}; 

char  *SB.TEXT_OBJECT::text() 

{ 

return  the.text; 

}; 
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#  include" shall. hxx" 

#  include  "sbextern.h" 

SB.TYPE.USAGE::SB.TYPE.USAGE(APL  *theAPL)  :  Object(theAPL) 
{ 

}; 

SB.TYPE.USAGE::SB.TYPE.USAGE(cliar  *new.type_id, 

SB.TYPEJ^AME  *new_type_name): 
ObjectO 

{ 


the.type  jd=new  char[strlen(new_typeJd)+l]; 
strcpy(the_type  Jd,new_typeJd); 

the_type_name=new_type_name^findTRef(); 
the_times_used=0; 


}; 

void  SB_TYPE_USAGE::Destroy(Boolean  aborted) 

{   _ 

if(the_type_id) 

{ 

delete  the.typeJd; 

}; 

type_name()—»  Destroy  (aborted); 
Object  ::Destroy(aboited); 

}; 

void  SB_TYPE_USAGE::deleteObject( Boolean  deallocate) 

{ 

type_iiame()-^deleteObject(  FALSE); 

Object  ::deleteObject(  deallocate); 

}; 

void  SB.TYPE_USAGE::putObject(Boolean  deallocate) 
{ 

type_name()-^putObject(  deallocate); 
Object:  :putObject(deallocate); 


}; 


char  *SB.TYPE.USAGE::tvpe_id() 
{ 
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return  the.typeJd; 

SB.TYPEJ^AME  *SB_TYPE.USAGE::typejiame() 

return  ((SB_TYPE_NAME  *)  (the_type_iiame— Binding())); 

void  SB.TYPE.USAGE::used() 

the_times-used-f-+; 

hit  SB-TYPE.USAGE::times.used() 
return  (the_times_used); 

Type  *SB.TYPE_USAGE::getDirectType() 
return  SB_TYPE.USAGE_OType; 

void  SB_TYPE_USAGE::printOn(ofstream&  outstream) 

outstream  <C  theJypeJd  <C  "  used  "  <C  tlie.times.used  <C  "  "; 
typejiameO— *printOn(outstream); 

char  *SB_TYPE-USAGE::base_typeJd() 
return  type_iiame()^base_typeJd(); 
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#  include  "sball  .hxx" 

#  include  "sbextern.h" 

SB.TYPE.USAGE_DICTIONARY::SB.TYPE_USAGEJDICTIONARY(APL  *theAPL) 

Object(theAPL) 

{ 

}; 


SB.TYPE_USAGE-DICTIONARY::SB.TYPE.USAGEJ)ICTIONARY()  :  Object() 
{ 


Dictionary  *new_dictionary_by_base_type=  new  Dictionary(OC^tring, 

SB.TYPE-USAGE.OType, 

TRUE, 

TRUE); 


the_dictionary_by.base_type=new  .dictionary  _by -base  _type-^findTRef(); 

Dictionary  *new_dictionary_by_type_id=  new  Dictionary(OC_string, 

SB.TYPE.USAGE_OType, 

TRUE, 

FALSE); 


the_dictionary_by_typeJd=new_dictionary_by_t.ypeJd— »findTRef(); 

Dictionary  *new_dictionary_by_tinies_used=new  Dictionary (OC_integer, 

SB.TYPE_USAGE_OType, 

TRUE, 

TRUE); 

the_dictionary_by_times-used=:nevv_dictionary_by_times_used^findTRef(); 

}; 


void  SB_TYPE.USAGE_DICTIONARY::Destrov(Boolean  aborted) 
{ 

Dictionarylterator  next_decl=type Jd Jterator(); 

while(next_decl.moreData()) 

{ 

((SB.TYPE.USAGE  *)(Entitv  *)next_decl())  — Destroy(aborted); 

}; 
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dictionary -by  _base_type()— ►Destroy  (aborted); 
dictionary_by_type_id()—*  Destroy  (aborted); 
dictionary_by_times_used()-^Destroy(  aborted); 

delete  the.dictionary.by .base .type; 
delete  the.dictionary.by.typeJd; 
delete  the.dictionary.by.times.used; 

Object::  Destroy  (aborted); 

}; 

void  SB.TYPE.USAGE.DICTIONARY::deleteObject(Boolean  deallocate) 
{ 

Dictionarylterator  next.decl=typeJditerator(); 

while(next_decl.moreData()) 

{ 

((SB.TYPE.USAGE  *)(Entity  *)next.decl())^deleteObject(FALSE); 

}; 

dictionary  .by  .base.type(  )—»deleteObject(  FALSE) ; 
dictionary_by_typeJd()—deleteObject(  FALSE); 
dictionary. by  .tinies.used()^deleteObject(  FALSE); 

Object  ::deleteObject(deallocate); 

}; 

void  SB.TYPE.USAGE.DICTIONARY::putObject(Boolean  deallocate) 
{ 

Dictionarylterator  next_decl=type  JdJterator(); 

while(next_decl.moreData()) 
{ 

((SB.TYPE.USAGE  *)(Entity  *)next.decl())^putObject(deallocate); 

}; 

dictionary_by_base.type()— ►putObject(deallocate); 
dictionary_by.typeJd()— »-putObject(deallocate); 
dictionary -by  _tinies-used()^putObject(  deallocate); 

Object  ::putObject(  deallocate); 

}; 


Type  *SB-TYPE.USAGE_DICT10NARY::getDirectType() 
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return  SB.TYPE_USAGEJ)ICTIONARY_OType; 

Dictionary  *SB.TYPE_USAGE-DICTIONARY::dictionary_by_base.type() 
return  (Dictionary  *)(the.dictionary_by-base_type^Binding()); 

Dictionary  *SB-TYPE-USAGE J3ICTI0NARY::dictionary_by_typeid() 
return  (Dictionary  *)(the_dictionary_by-type_id— *Binding()); 

Dictionary  *SB_TYPE_USAGE_DICTIONARY::dictionary_by_times_used() 
return  (Dictionary  *)(the_dictionary_by_times_used— ►BindingO); 


Boolean  SB_TYPE.USAGEJDICTIONARY::add.type(char  *typeJd,SB.TYPEJ^AME 

*type_name) 

{ 

Boolean  return-flag; 


if(dictionary_bv-type_id()—isIndex(type_id)== FALSE) 

{ 

//  ID  NOT  YET  USED 

SB.TYPE.USAGE  *new_usage=new  SB.TYPE.USAGE(typeid,type_name); 


dictionary_by_typeJd()— *Insert(typeJd,new_usage); 

dictionary -by  _base_type()—Insert(  type  Jiame^base_typeid(), new  _usage); 

dictionary  _by_times_used()^lnsert(0,new_usage); 


} 
else 

{ 


return_flag=TRUE; 


//  id  already  tn  use  so  can  not  insert 
return  _flag= FALSE; 

}; 

return  return _flag; 

}; 

Boolean  SB_TYPE.USAGE_DICTIONARY::add_type(SB.TYPE_USAGE  *type-usage) 

{ 

Boolean  return_flag; 
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if(dictionary-by_type_id()^isIndex(type_usage— 'type  Jd())== FALSE) 

{ 

//  ID  NOT  YET  USED 

dictionary  _by_typeJd()^Insert(type_usage—>-typeid(),type_usage); 
dictionary  _by_base_type()-^Insert(  type  .usage— 'base -type  id(),  type  jusage); 
dictionary_by_times_used()-^lnsert(0,type_usage); 

returnJlag^TRUE; 

} 
else 

{ 

//  id  already  in  use  so  can  not  insert 

return  Jlag= FALSE; 

}; 

return  return.flag; 

}; 

Boolean  SB.TYPE-USAGEJ3ICTI0NARY::append(SB.TYPE_USAGEJDICTI0NARY 

+dictionary) 

{ 

Boolean  return  Jlag=TRUE; 

Dictionarylterator  next  Jd=dictionary—' type JdJterator(); 

while(next_id.moreData()  &ck.  return Jlag==TRUE) 

{ 

SB.TYPE.USAGE  *the.usage=(SB.TYPE_USAGE  *)(Entity  *)next  Jd(); 
return  Jlag=add_type(  the  .usage) ; 

}; 

/*  next.id.Reset(): 
while(next.id.moreData()) 

{ 

SB.TYPE. USAGE  *the.usage-{SB.TYPE.USAGE  *)(Entity  *)next.id(); 
dicttonary-yremove.usage  (the. usage); 

}; 

dictionary->  Destroy  (FALSE);*/ 
return  returnJlag; 

}; 

void  SB.TYPE.USAGE  JDICTION ARY: :remove-Usage(SB_TYPE_USAGE  *the-usage) 

{ 

dictionary  . by  _times_used()—+Remove(the_usage—times_used(),the_usage); 

dictionary_by_type_id()— ►Remove(the_usage^typeJd(),the_usage); 
dictionary -by  .base_type() — ■Remove(the.usage— baseJypeJd(),the_usage); 
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}; 


void  SB_TYPE_USAGEJ)ICTIONARY::printOn(ofstream&  outstream) 

{ 

Dictionarylterator  &;next_decl= 

*(new  Diet ionaryIterator( die tionary_by_base_type())); 

while(next_decl.moreData()) 

{ 

((SB-TYPE.USAGE  *)(Entity  *)  next_decl())^printOn(outstream); 

outstream  <C  "\n"; 

}; 


intSB.TYPE-USAGE_DICTIONARY::num() 

return  (int)(dictionary_by.base_type()^Cardinality()); 

Dictionarylterator  SB_TYPE_USAGE_DICTIONARY::typeiditerator() 
return  DictionaryIterator(dictionary_by_typeJd()); 

Dictionarylterator  SB.TYPE.USAGE JDICTIONARY::base_typeJterator() 
return  DictionaryIterator(dictionary-by_base_type()); 

Dictionarylterator  SB.TYPE.USAGE J)ICTIONARY::times_usediterator() 
return  DictionaryIterator(dictionary.by.times.used()); 


Boolean  SB_TYPE_USAGEJDICTIONARY::update(SB.TYPE.NAME  *typejiame) 

{ 

Boolean  return-flag=FALSE; 
if(dictionary.by.type.id()— ♦islndex(typejiame^id())) 

{ 

//  this  type  id  is  in  the  list  so  update  its  usage 

((SB.TYPE.USAGE  *)dictionary.by_type_id()— 

getEntityElement(typejiame — id()))— used(); 

return  Jlag=TRUE; 

}; 


}; 


return  return  Jlag; 
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APPENDIX  C  -  PARSER  GENERATION  INPUT 

FILES 


A.     LEX  INPUT 

%[ 

#  include  "y.tab.h"; 

intline  number=l; 

%} 

a 

[aA] 

b 

[bB] 

c 

[cC] 

d 

[dD] 

e 

[eE] 

f 

[fF] 

g 

[gG] 

h 

[hH] 

i 

[il] 

J 

UJ] 

k 

[kK] 

1 

[IL] 

m 

[mM] 

n 

[nN] 

o 

[oO] 

P 

[pP] 

q 

[qQ] 

r 

[rR] 

s 

[sS] 

t 

[tT] 

u 

[uU] 

V 

[vV] 

w 

[wW] 

X 

[xX] 

y 

[yY] 

z 

[zZ] 

space 

[] 

%% 

{t]{y}{p}{e} 

retum(TYPE); 

{s){p)( 

e){c}{i}{f}{i}{c){a}{t){i){o}{n} 

retum(SPECIFICATION): 

{e}{n}{d) 

retum(END); 

{g}{e){ 

n){e){r){i}{c) 

retum(GENERIC); 
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(o){p}{e}{r}{a}{t}{o){r} 

retiim(OPERATOR); 

{i}{n}{p){u}{t) 

retum(INPUT); 

{o}{u){t}{p){u}{t) 

retum(OUlPUT); 

{s}{t){a){t){e){s} 

retum(STATES); 

{e}{x}{c)(e){p}{t}{i){o){n){s} 

retum(EXCEPTIONS); 

{b}{y} {space} {r}{e}{q}{u){i}{r}{e){ 

m}{e){n){t){s} 

retum(BY_REQ); 

{d}{e}{s){c){r){i){p}{t}{i}{o}{n) 

retiim(DESCRIPTION); 

{a){x}{i){o}{m){s} 

retum(AXIOMS); 

{k}{e){y}{w}{o)(r){d}{s} 

retum(KEYWORDS); 

{m}  {a}  {x}  (i)  {m}  (u)  {m}  (space)  (e)  [:n 

}{e){c}{u){t}{i}{c 

)}{n}  (space)  (t){i)(m}{e} 

retum(MAX_EXEC_TIME); 

{m){i}{c}{r}{o}{s}{e){c} 

retum(MICROSEC); 

{m){s) 

retum(MS); 

{s}{e}{c} 

return(SEC); 

{in){i){n} 

retum(MIN); 

{h}{o}{u){r){s} 

retum(HOURS); 

{a}{n}{d) 

retum(AND); 

{o){r) 

retum(OR); 

{x}{o){r} 

retum(XOR); 

{t}{r){u}{e} 

retum(TRUE); 

{f){a){l}{s}{e} 

retum(FALSE); 

{n}{o}{t} 

retum(NOT); 

'<" 

retum('<'); 

■>" 

retum('>'); 

'=" 

retiim('='); 

'>=" 

retum(GTE); 

'<=" 

retumCLlE); 

"/=" 

return(NEQV); 

"+" 

retum('+'); 

"." 

retum('-'); 

"&" 

retum('&'); 

"*" 

retumC*'); 

II /ft 

retumC/'); 

{m}{o){d) 

retum(MOD); 

{r}{e}{m) 

return(REM); 

•**•> 

retum(EXP); 

[0-9]  [0-9]* 

return(IN'l'HGER_LnERAL) 

[0-9][0-9]*"."[0-9]* 

retum(REAL_LITERAL); 

"""rA]]*""" 

retum(STRING_LITERAL); 

II,  It 

retum('.'); 
retum(':'); 

If  ft 

retumC,'); 

Itrti 

retumCC); 

"]" 

retum(']'); 

"(" 

retumCC); 

II\II 

retum(')'); 

"{"[A}]*..}" 

{ 

char 

*temp=yytext; 

while(*temp!=NULL) 
r 

I 

if(*temp=='\n') 
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I 


'  ♦ 


line_number++; 

}; 

temp++; 

}; 

return  (TEXT_BLOCK); 

); 

[a-zA-Z][a-zA-Z_0-9]*  retum(ID); 

[\\t]; 

"Nn"  { 

line_number++; 

}; 
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B.     YACC  INPUT 

%start  component 
%union       ( 


void*  OBJECT  POINT; 


%token  ID  TYPE  SPECIFICATION  END  GENERIC 

%token  OPERATOR  INPUT  OUTPUT 

%token  STATES  EXCEPTIONS  BY_REQ  DESCRIPTION  AXIOMS 

%token  TEXT_BLOCK  KEYWORDS 

%token  MOD  GTE  LTE 

%token  MS  MICROSEC  SEC  HOURS  MIN  AND  OR  XOR 

%token  NEQV  REM  EXP 

%token  INITIALLY  MAX_EXEC_TIME 

%token  INTEGER_LITERAL  TRUE  FALSE  REAL_LITERAL  STRING.LITERAL 

%token  NOT  ABS 


%type  <OBJECT_POINT> 

%lype  <OBJECT_POINT> 

%type  <OBJECT_POINT> 

%type  <OBJECT_POINT> 


type_spec  optional_generic_specs 
optional_type_decl  optionaI_operator_decI 
operator  data_type  type_nanie  generic_attributes 
input_attributes  output_attributes  exceptions_attributes 


#include  <stream.hxx>  //  C++  specific  io  routines 
#include  "sball.hxx" 

/*  this  code  allows  the  C++  compiler  to  use  the  c  code  generated  by  lex  as  standard  c  code  */ 

extern  "C--" 

{ 

extern  int  yylexQ; 
extern  int  line_number; 
extern  char  yytext[]; 
#include     <string.h> 
#include     <ctype.h> 
#include     <stdlib.h> 
#include     <stdio.h> 
} 

extern  int  yyerror(char  *); 

extern  SB_COMPONENT*  YYPARSE_component;  //  global  pointer  to  the  main  library  object 
extern  Boolean  YYPARSE_query_flag; 

//  predeclare  functions  for  internal  stacks 
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void 

push_object(void  *new_object); 

void 

*top_object(); 

void 

*pop_object(); 

void 

push_id(char  *new_id); 

char 

*top_id(); 

char 

*pop_id(); 

void 

push_rid(char  *new_id); 

char 

*top_rid(); 

char 

*pop_ridO; 

//  declare  global  variables  for  the  parser 

Boolean      SB_COMPONENT_ADT_FLAG=FALSE; 
char  *psdl_type_name; 

%) 

%% 

component: 

data_type 

{ 

YYPARSE_componeni=(SB_COMPONENT  *)$1; 

} 
I 
operator 

{ 

YYPARSE_component=(SB_COMPONENT*)$l; 

); 

data_type: 

TYPE 
push_ID 

( 

psdl_type_name=top_id(); 

push_object(new  S  B_ADT_COMPONENT(pop_id())); 

SB_COMPONENT_ADT_FLAG=TRUE; 

) 
type_spec 

{ 

$$=(SB_COMPONENT  *)pop_object(); 

); 

type_spec: 

SPECinCATION 
optional_generic_specs 
optional_type_decl 
optional_operator_decl 
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functionality 

END 

{ 

if($2!=NULL) 

{ 

((SB_ADT_COMPONENT  *)top_object())-> 

insert_generics((SB_TYPE_USAGE_DICTI0NARY*)$2); 

); 

if($3!=NULL) 

{ 

((SB_ADT_COMPONENT  *)top_object())-> 

insert_adt_usage((SB_TYPE_USAGE_DICTI0NARY*)$3); 

}; 

if($4!=NULL) 

{ 

((SB_ADT_COMPONENT  *)top_object())-> 

insert_operators((SB_ADT_OPERATOR_DICTIONARY*)$4); 

); 
); 

optional_generic_specs: 

GENERIC 

push_new_SB_TYPE_USAGE_DICTIONARY 

list_of_type_decl 

{ 

$$=(SB_TYPE_USAGE_DICTIONARY*)pop_object(); 

}; 

I 
/*optional*/ 

{$$=NULL;); 

opiional_type_decl: 

push_new_SB_TYPE_USAGE_DICTIONARY 
Iist_of_lype_decl 

{ 

$$=(SB_TYPE_USAGE_DICTIONARY*)pop_object(); 

) 
I 
/♦optional*/ 

{$$=NULL;); 

optional_operator_dec  1 : 

push_new_SB_ADT_OPERATOR_DICTIONARY 
operatorjist 

{ 

$$=(SB_ADT_OPERATOR_DICTIONARY*)pop_objectO; 

} 
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/♦optional*/ 
{$$=NULL;); 

list_of_type_decl: 

list_of_type_decl 

type_decl 

I 

type_decl; 

type_decl: 

push_id_list_start 
idjist 


type_name 


]; 

idjist: 
id  list 


//  must  use  another  stack  in  order  to  reverse  the  order  back 
//  to  the  original  order  in  the  declaration 
while(top_id()!=BOTTOM_lD) 

{ 

push_rid(pop_id()); 

) 

pop_id();    //  pop  off  the  B0TT0M_1D  MARKER 
while(top_rid()!=NULL) 
{ 

((SB_TYPE_USAGE_DlCTIONARY*)top_object())-> 
add_type(pop_rid(),(SB_TYPE_NAME*)$4); 

); 


A 


push_ID 

I 

push_ID; 

type_name: 

push_ID 

{ 

$$=newSB_TYPE_NAME(pop_id(),(SBJD_DECL_DICTIONARY*)NULL); 

); 

I 
push_ID 

'[' 
push_new_SB_ID_DECL_DICTIONARY 

list  of  id  decl 
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{ 

$$=newSB_TYPE_NAME(pop_id(),(SB_ID_DECL_DICTIONARY*)pop_object()); 

}; 

list_of_id_decl: 

list_of_id_decl 

id_decl 

I 
id_decl; 

id_decl: 

push_id_list_start 
idjist 

type_name 

{ 

//  must  use  another  stack  in  order  to  reverse  the  order  back 
//  to  the  original  order  in  the  declaration 
while(top_id()!=BOTTOM_ID) 

{ 

push_rid(pop_id()) ; 

); 

pop_id();    //  pop  off  the  BOTTOM_ID  MARKER 
while(top_rid()!=NULL) 

{ 

((SB_ID_DECL_DICTIONARY*)top_objectO)-> 

add_decl(pop_rid(),(SB_TYPE_NAME*)$4); 
): 
}; 

operator_list: 

operator 

{ 
((SB_ADT_OPERATOR_DICTIONARY*)top_object())->add((SB_ADT_OPERATOR*)$l); 

}; 
I 

operator 
operator_list 

{ 

((SB_ADT_OPERATOR_DICTIONARY*)top_object())-> 

add((S  B_ADT_OPER  ATOR*)$  1 ); 

}; 

functionality. 

keywords 
informal  desc 
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fonnal_desc 

keywords: 

{/*optional*/) 

I 

KEYWORDS 

push_id_list_start 

idjist 

{ 

whiIe(top_id()!=BOTTOM_ID) 

(  1 

(((SB_COMPONENT*)top_object())->keyword_dictionary())->add(pop_id()); 

}; 

pop_id();     //  remove  the  bottom_id 

]; 


informal_desc: 

{/*optional*/) 

I 

DESCRIPTION 

TEXT_BLOCK 

{ 


I 


char  *the_text=new  char[strlen(yytext)+l]; 

//  put  ail  but  the  opening  {  and  closing  }  into  the_text 

int  i; 

for(i=l;i<  strlen(yytext)-l;i++) 

{ 

the_text[i-  l]=yytext[i]; 

); 

the_text[i-l]=NULL; 

(((SB_COMPONENT*)top_object())->infonnal_description())->append(the_text); 
delete  the_text; 


} 
formal_desc: 

{  /*optionaI*/  } 

I 

AXIOMS 

TEXT_BLOCK 

I 


char  *the_text=new  char[strlen(yytext)+l]; 

//  put  all  but  the  op)ening  {  and  closing  )  into  lhe_text  ■ 

int  i; 

for(i=l;i<  strlen(yytext)-I;i++) 

{ 

the_text[i- 1  ]=yy  text[i] ; 

}; 

the_text[i-l]=NULL; 
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(((SB_COMPONENT*)top_object())->formal_descriptionO)->append(the_text); 
delete  the_text; 


operator: 


OPERATOR 
push_ID 


if(S  B_COMPONENT_ADT_FLAG==TRUE) 

( 

//  concatenate  the  psdl_type  name  and  the  operator  name  to  ensure 

//  a  unique  name  in  the  database  for  the  new  component 

char  *component_name=new 

char[strlen(psdLtype_name)+ 

strlen(top_id())+2]; 

strcpy(component_name,psdl_type_name); 

strcat(component_name,"."); 

strcat(component_name,pop_id()); 

push_object(new  S B_ADT_OPERATOR(component_name)); 

delete  component_name; 


else 


); 


push_object(newSB_OPERATOR_COMPONENT(pop_id())); 


) 
operalor_spec 

I 

$$=pop_object(); 

); 

operator_spec: 

SPECinCATION 
operator_interface 
functionality 
END 

operator_interface: 

{/*empty  */} 

I 

attribute 

req_trace 

operator_interface 

attribute: 

generic_attributes 
{ 
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((SB_OPERATOR 

*)top_object())->insen_generics((SB_TYPE_USAGE_DICTIONARY*)$l); 

); 
I 

input_attributes 

{ 

((SB_OPERATOR*)top_object())->add_inputs((SB_ID_DECL_DICTIONARY*)$l); 

}; 

I 
output_attributes 

{ 

({SB_OPERATOR  *)top_object())-> 

add_outputs((SB_ID_DECL_DICTIONARY*)$l); 

}; 
I 

state_attributes 

I 

exceptions_attributes 

{ 

((SB_OPERATOR  *)top_object())-> 

add_exceptions((SB_EXCEPTION_DICTIONARY*)$l); 

); 

I 

max_execution_attribute; 

req_trace: 
{/*empty*/) 
I 

BY_REQ 
idjist 

generic_attributes: 

GENERIC 

push_new_SB_TYPE_USAGE_DICTIONARY 

list_of_type_decl 

I 

$$=(SB_TYPE_USAGE_DICTIONARY*)pop_object(); 

); 

input_attributes: 

INPUT 

push_new_SB_ID_DECL_DICTIONARY 

list_of_id_decI 

{ 

$$=(SB_ID_DECL_DICTIONARY*)pop_objectO; 


output_attributes: 
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OUTPUT 

push_new_S  B_ID_DECL_DICTIONARY 

list_of_id_decl 

{ 

$$=(SB_ID_DECL_DICTIONARY*)pop_object(); 


state_attributes: 

STATES 
list_of_id_decl 

{ 

//  through  away  the  list  of  type  decl  since  it  is  not  used 
pop_object(); 

} 

INITIALLY 
initial_expression_list 


exceptions_attributes: 

EXCEPTIONS 

push_new_SB_EXCEFriON_DICTIONARY 

push_id_list_start 

idjist 

{ 

while(top_id()!=BOTTOM_ID) 

{ 

((SB_EXCEPTION_DICTIONARY*)top_object())->add(pop_id()); 

}; 

pop_id();  //  pop  off  the  bottom  marker 
$$=(SB_EXCEPTION_DICTIONARY*)pop_object(); 

]; 

max_execution_attribute: 

MAX_EXEC_TIME  time; 

time: 

INTEGER_LITERAL  MICROSEC 

I 

INTEGER_LITERAL  MS 

I 

INTEGER_LITERAL  SEC 

I 

INTEGER_LITERAL  MIN 

I 

INTEGER_LITERAL  HOURS; 

initial_expression_list: 
initial_expression_list 
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initial_expression 

I 

initial_expression; 

initial_expression: 
TRUE 
I 

FALSE 
I 

INTEGER_LITERAL 
I 

REAL_LITERAL 
I 

STRING_LITERAL 
I 

ID 
I 
type_name 

ID 

I 

type_name 

ID 

'('  initial_expression_list ')' 

I 

'('  initial_expression ')' 

I 

initial_expression 

log_op 

initiaLexpression 

linitial_expression 

rel_op 

initial_expression 

I'-' 

initiaLexpression 

I 

'+' 

initial_expression 

I 

initial_expression 

bin_add_op 

initiaLexpression 

I 

initiaLexpression 

bin_muLop 

initiaLexpression 

I 

initiaLexpression 

EXP 
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initial_expression 

I 

NOT 

initial_expression 

I 

ABS 

initial_expression; 

log_op: 
AND 
I 

OR 
I 
XOR; 

rel_op: 


GTE 

I 

LTE 

I 

NEQV; 

bin_add_op: 

I 

I    f 

I 

'«&'; 

bin_mul_op: 

'♦' 

I 

•/• 

I 

MOD 

I 

REM; 

push_ID: 


ID 

{ 


}; 


char  *new_id=new  char[strlen(yytext)+l]; 

strcpy(new_id,yytext); 

push_id(new_id); 
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push_new_SB_EXCEPTION_DICTIONARY: 
I 

push_object(new  S  B_EXCEPTION_DICTIONAR YQ); 

}; 

push_new_SB_TYPE_USAGE_DICTIONARY: 

{ 

push_object(newSB_TYPE_USAGE_DICTIONARY0); 

}; 

push_new_SB_ADT_OPERATOR_DICTIONARY: 

{ 

push_object(newSB_ADT_OPERATOR_DICTIONARY()); 

}; 

push_id_list_start: 

{ 

push_id(BOTTOM_ID); 

}; 

push_new_SB_ID_DECL_DICTIONARY: 

{ 

push_object(newSB_ID_DECL_DICTIONARY()); 

}; 

%% 

/*  define  the  id  stack  and  the  object  pointer  stack  */ 

typedef  struct  OBJECT_STACK_RECORD 

{ 

void  *object_point; 

OBJECT_STACK_RECORD  *next_record; 
}  OBJECT_STACK_RECORD; 

typedef  struct  ID_STACK_RECORD 

{ 
char  *id; 

ID_STACK_RECORD  *next_record; 
)  ID_STACK_RECORD; 

typedef  struct  NAME_STACK_RECORD 

{ 

char  *name; 

NAME_STACK_RECORD  *next_record; 
}  NAME_STACK_RECORD; 
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char  BOTTOM_ID_MARKER[2]="#";  /*  used  as  a  bottom  of  idjist  marker  */ 
char  *BOTTOM_ID=(char  *)BOTTOM_ID_MARKER; 

OBJECT_STACK_RECORD*top_object_in_stack=NULL; 
ID_STACK_RECORD*top_id_in_stack=NULL; 
ID_STACK_RECORD*top_rid_in_stack=NULL; 
NAME_STACK_RECORD*top_name_in_stack=NULL; 

void  push_object(void  *new_object) 

{ 

OBJECT_STACK_RECORD  *new_object_record=new  OBJECT_STACK_RECORD; 
new_object_record->object_point=new_object; 
new_object_record->next_record=top_object_in_stack; 
top_object_in_stack=new_object_record; 


void  *top_object() 

{ 
void  *retum_object=NULL; 
if(top_object_in_stack!=NULL) 

{ 

retum_object=top_object_in_stack->object_point; 

} 
else 

{ 

cerr «  "error  in  object  stack  tried  to  view  top  object  that  was  nulNi"; 

): 

return  retum_object; 

}; 

void  *pop_object() 

{ 
void  *retum_object=NULL; 

OBJECT_STACK_RECORD*temp_point=top_object_in_stack; 
if(top_object_in_stack!=NULL) 

{ 

retum_object=top_object_in_stack->object_point; 
top_object_in_stack=top_object_in_stack->next_record; 
delete  temp_point; 

} 

else 

{ 

cerr  «  "PARSER:  error  in  object  stack  read  past  end\n"; 

}; 

return  retum_object; 


void  push_rid(char  *new_id) 

{ 
ID_STACK_RECORD  *new_id_record=new  ID_STACK_RECORD; 
new_id_record->id=new_id; 
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new_id_record->next_record=top_rid_in_stack; 
top_rid_in_stack=new_id_record; 


char  *top_rid() 

{ 
char  *retum_id=NULL; 
if(top_rid_in_stack!=NULL) 
{ 

retum_id=top_rid_in_stack->id; 

]; 

return  retum_id; 

}; 

char  *pop_rid() 

{ 
char  *retum_id=NULL; 
if(top_rid_in_stack!=NULL) 

{ 

retum_id=top_rid_in_stack->id; 
ID_STACK_RECORD  *temp_point=top_rid_in_stack; 
top_rid_in_stack=iop_rid_in_stack->next_record; 
delete  temp_point; 

) 
else 

{ 

cerr  «  "PARSER:  error  in  rid  stack  read  past  end\n"; 

}; 

return  retum_id; 


void  push_id(char  *new_id) 

{ 
ID_STACK_RECORD  *new_id_record=new  ID_STACK_RECORD; 
new_id_rccord->id=new_id; 
new_id_record->next_record=top_id_in_stack; 
top_id_in_stack=new_id_record; 


char  *top_id() 

( 
char  *retumJd=NULL; 
if (lop_id_in_stack ! =NULL) 

{ 

retum_id=top_id_in_stack->id; 

) 
else 

{ 

cerr  «  "PARSER:  error  in  id  stack  looked  at  NULL  record\n" 

): 

return  retum_id; 
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}: 

char  *pop_id() 

{ 
char  *retum_id=NULL; 
if(top_id_in_stack!=NULL) 

{ 

retum_id=top_id_in_stack->id; 
ID_STACK_RECORD*temp_point=top_id_in_stack; 
top_id_in_stack=top_id_in_stack->next_record; 
delete  temp_point; 

} 
else 

{ 

cerr  «  "PARSER:  error  in  id  stack  read  past  end\n"; 

}; 

return  retum_id; 

}; 
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APPENDIX  D  -  INTEGRATING  ADA 
COMPONENTS  INTO  CAPS 


I 

1 


Once  a  reusable  component  has  been  retrieved  it  must  be  transformed  for  use  in  the 
prototype  being  developed.    As  previously  discussed,  this  requires  that  the  names  for     " 
parameters,  streams,  operators,  and  types  be  changed  to  match  those  of  the  query 

I 

component.  Along  with  this  transformation  the  execution  support  system  expects  several 
naming  conventions  to  be  followed  for  Ada  components.  This  appendix  will  discuss  how     f 
an  Ada  reusable  component  can  be  transformed  into  the  domain  of  the  query  component 
as  well  as  the  naming  conventions  the  execution  support  system  expects  for  Ada 
components.  An  example  of  the  transformation  process  is  also  included. 

A.     ADA  REUSABLE  COMPONENT  NAMING  CONVENTIONS 

The  execution  support  system  requires  that  all  Ada  reusable  components  are 
implemented  via  packages.  To  simplify  the  process  of  identifying  package  names  the 
following  conventions  are  used. 

1.      Operators 

An  operator  with  an  ID  of  operator_name  will  be  implemented  in  a  package 
named  opera tor_name_pkg.  The  operator  itself  will  be  implemented  by  the  procedure 
operator_name_pkg.operator_name. 
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2.      Types 

A  PSDL  type  with  an  ID  of  psdl_type_name  will  be  implemented  in  a  package 
named  psdl_type_name_pk:g. 

B.      EXAMPLE 


1.      Query  Specification 

type  integer_set 
specification 

integer_set :  ADT 

operator  create 
specification 

output 

the_set :  integer_set 
end 

operator  insert 
specification 
input 

X  :  integer, 
in_set :  integer_set 
output 

out_set :  integer_set 
end 

operator  remove 
specification 
input 

X  :  integer, 
in_set :  integer_set 
output 

out_set :  integer_set 
end 

operator  member 
specification 
input 

X  :  integer, 
in_set :  integer_set 
output 

result :  boolean 
end 
end 
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2.      Library  Specification  Located  As  A  Match 

typeset 
specification 

generic  t :  GENERIC_TYPE, 

block_size :  GENERIC_VALUE, 

eq  :  GENERIC_PROCEDURE 

set :  ADT 

operator  empty 
specification 
output 

s :  set 
end 

operator  add 
specification 
input 

x:  t, 
si :  set 
output 

so  :  set 
end 

operator  remove 
specification 
input 

x:  t. 
si :  set 
output 

so  :  set 
end 

operator  member 
specification 
input 

X  :  t, 
s  :  set 
output 

V  :  boolean 
end 

operator  union 
specification 
input 

sl,s2 :  set 
output 

s3  :  set 
end 
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operator  difference 
specification 
input 

sl,s2 :  set 
output 

s3  :  set 
end 

operator  intersection 
specification 
input 

sl,s2 :  set 
output 

s3  :  set 
end 

operator  size 
specification 

input 

s :  set 

output 

V  :  natural 
end 

operator  equal 
specification 

input 

sl,s2 :  set 

output 

V  :  boolean 
end 

operator  subset 
specification 

input 

sl,s2 :  set 

output 

V  :  boolean 
end 

keywords  SET 

description  {  SET  ADT  WITH  OPERATIONS  FOR  EMPTY,  ADD,  SUBSET,  EQUAL 
end 
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3.      Matching  Map 

TYPE  set  ->  integer_set 
MAP 

set  ->  integer_set 

GENERIC 

t  ->  integer 

eq  ->  UNDEHNED 

OPERATOR  empty  ->  create 
MAP 

OUTPUT 

s  :  set  ->  new_set :  integer_set 
END 

OPERATOR  add  ->  insert 
MAP 

INPUT 

X  :  t  ->  X  :  integer, 
si :  set  ->  in_set :  integer_set 
OUTPUT 

so  :  set  ->  out_set :  integer_set 
END 

OPERATOR  remove  ->  remove 
MAP 

INPUT 

X  :  t  ->  X  :  integer, 
si :  set  ->  in_set :  integer_set 
OUTPUT 

so  :  set ->  out_set :  integer_set 
END 

OPERATOR  member  ->  member 
MAP 

INPUT 

X  :  t  ->  X  :  integer, 
si :  set  ->  in_set :  integer_set 
OUTPUT 

V  :  boolean  ->  result :  boolean 
END 
END 

The  grammar  that  defines  this  mapping  language  is  included  in  this  Appendix. 
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4.      Generated  Ada  Code 

From  this  matching  map  the  following  Ada  specification  and  implementation 
can  be  generated  to  implement  integer_set. 

C.     ADA  SPECIFICATION 


with  sb_set_pkg; 
package  integer_set_pkg  is 
type  integer_set  is  private; 

procedure  create(new_set :  out  integer_set); 

procedure  insert(x  :  in  integer; 

in_set :  in  integer_set; 
out_set :  out  integer_set); 

procedure  remove(x  :  in  integer; 

in_set :  in  integer_set; 
out_set :  out  integer_set); 

procedure  meniber(x  :  in  integer; 

in_set :  in  integer_set; 
result :  out  boolean); 

private 

package  sb_set_pkg_to_integer_set_pkg  is  new  sb_set_pkg(integer,UNDEFINED); 

integer_set  is  subtype  sb_set_pkg_to_integer_set_pkg.set; 
end  integer_set_pkg; 
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D.     ADA  IMPLEMENTATION 


package  body  integer_set_pkg  is 

procedure  create(new_set :  out  integer_set)  is 
begin 

sb_set_pkg_to_integer_set_pkg.empty(new_set); 
end; 

procedure  insen(x  :  in  integer; 

in_set :  in  integer_set; 
out_set :  out  integer_set)  is 
begin 

sb_set_pkg_to_integer_set_pkg.insert(x,in_set,out_set); 
end; 

procedure  remove(x  :  in  integer; 

in_set :  in  integer_set; 

out_set :  out  integer_set)  is 
begin 

sb_set_pkg_to_integer_set_pkg.remove(x,in_set,out_set); 
end; 

procedure  member(x  :  in  integer; 

in_set :  in  integer_set; 
result :  out  boolean)  is 
begin 

sb_set_pkg_to_integer_set_pkg.niember(x,  in_set,result); 
end; 
end  integer_set_pkg; 
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E.     PSDL  MATCHING  MAP  GRAMMER  (YACC  INPUT  FORMAT) 


%  start  psdl_map 

%token       ID  OPERATOR  MAPS_TO  MAP  END  TYPE  GENERIC  COMMA  INPUT  OUTPUT 

%token       COLON  UNDEHNED 


%% 


psdl_map: 
operator_map 
I 
type_map 

operator_map: 
OPERATOR 
library_id 
MAPS_TO 
query_id 
MAP 

operator_attributes 
END 

type_map: 
TYPE 
library  _id 
MAPS_TO 
query_id 
MAP 

type_attributes 
END 

type_attributes: 
adt_map_list 
generic_map_list 
operator_inap_list 

adt_niap_list: 

{/♦OPTIONAL*/} 

I 

map_type_list 

generic_map_list: 
(/♦OPTIONAL*/} 
I 

GENERIC 
map_type_list 
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operator_map_list: 
operator_map_list 
COMMA 
Of)erator_map 
I 
operator_map 

operator_attri  butes: 
generic_map_list 
input_map_list 
output_map_list 
exception_map_list 

input_map_list: 

{/♦OPTIONAL*/} 

I 

INPUT 

map_decl_list 

output_map_list: 
{/♦OPTIONAL*/) 
I 

OUTPUT 
map_decl_list 

excepuon_map_list: 
{/♦OPTIONAL*/} 
I 

EXCEPTION 
map_exception_list 

map_decl_list: 
map_decl_list 
COMMA 
map_decl 
I 
map_decl 

map_decl: 
library_id 
COLON 
library_type_id 
MAPS.TO 
query_id 
COLON 
query_type_id 
I 

libraryjd 
MAPS_TO 

UNDEFINED 
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map_type_list: 
map_type_list 
COMMA 
map_type 
I 
niap_type 

map_type: 

library_type_id 

MAPS_TO 

query_type_id 

I 

library_type_id 

MAPS.TO 

UNDEFINED 

map_exception_list: 
map_exception_list 
COMMA 
map_exception 
I 
map_exception 

map_exception: 
library_id 
MAPS_TO 
queryjd 
I 

library_id 
MAPS_TO 
UNDEHNED 
I 

UNDERNED 
MAPS.TO 
query_id 

library  _id: 
id 

query_id: 
id 

library_type_id: 
id 

query_type_id: 
id 

id: 
ID 
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APPENDIX  E  -  COMMAND  LINE  INTERFACE 

SPECIFICATION 

The  software  base  has  been  implemented  with  a  command  line  interface  to  simplify 
its  integration  into  CAPS.  This  Appendix  provides  a  detailed  specification  of  the 
command  line  interface  for  the  software  base. 

The  following  is  a  list  of  the  software  base  commands  available  and  how  to  used 
them.  Each  command  is  prefixed  by  the  name  of  the  software  base  executable  (i.e. 
caps_software_base). 

A.     MAKE  NEW  SOFTWARE  BASE  LIBRARY 

1.  Command 

ml  library_name  type_matching_rule_file 

2.  Description 

Creates  a  new  reusable  component  library  within  the  software  base  named 
library  _name  using  the  type  matching  rules  specified  in  the  file 
type_matching_rule_file.  See  Appendix  A  for  a  description  of  the  contents  of  the  type 
matching  rule  file. 

3.  Example 

%caps_software_base  ml  Ada  Ada_rule_file 
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B.  DELETE  SOFTWARE  BASE  LIBRARY 

1.  Command 

dl  library_name 

2.  Description 

Deletes  the  library  library _name  from  the  software  base  and  all  of  the 
components  in  this  library. 

3.  Example 

%caps_software_base  dl  Ada 

C.  ADD  A  COMPONENT  TO  A  SOFTWARE  BASE  LIBRARY 

1.  Command 

ca  library _name  psdl_file  imp_spec  imp_body 

2.  Description 

Adds  the  component  specified  in  psdl_rile  to  the  library  named  library _name. 
The  implementation  source  code  is  in  the  files  imp_spec  and  imp_body. 

3.  Example 

%caps_software_base  ca  Ada  sb_set.psdl  sb_set.spec.a  sb_set.body.a 
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D.  DELETE  A  COMPONENT  FROM  A  SOFTWARE  BASE  LIBRARY 

1.  Command 

cd  library _name  component_name 

2.  Description 

Deletes  the  component  named  component_name  from  the  library  named 
library  _name. 

E.  UPDATE  A  COMPONENT  IN  A  SOFTWARE  BASE  LIBRARY 

1.  Example 

%caps_software_base  cd  Ada  sb_set 

2.  Command 

cu  library_name  psdl_file  imp_spec  imp_body 

3.  Description 

Update  the  existing  component  specified  in  psdl_file  with  the  new 
specification  given  in  psdl_file  and  the  new  implementation  given  in  the  files  imp_spec 
and  impbody. 

4.  Example 

%caps_software_base  cu  Ada  set.psdl  new_set.spec.a  new_set.body.a 
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F.  VIEW  A  COMPONENT  IN  A  SOFTWARE  BASE  LIBRARY 

1.  Command 

cv  library _name  component_name  sb_set.psdl  sb_set.spec.a  sb_set.body.a 

2.  Description 

Generate  text  files  for  viewing  the  component  component_name  which  is  in 
library  library_name.  The  text  is  written  to  the  files  specified  by  psdl_file,  imp_spec, 
impbody. 

3.  Example 

%caps_software_base  cv  Ada  sb_set.psdl  sb_set.spec.a  sb_set.body.a 

G.  LIST  OF  KEYWORDS  IN  A  SOFTWARE  BASE  LIBRARY 

1.  Command 

kwl  library _name  output_file 

2.  Description 

Generate  a  list  of  keywords  defined  in  library  library _name.  This  list  is 
provided  to  allow  the  formulation  of  keyword  queries  or  when  selecting  keywords  for  a 
new  component.  The  list  of  keywords  is  written  to  the  file  output_file. 

3.  Example 

%caps_software_base  kwl  Ada  keyword_list 
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H.     LIST  OF  COMPONENTS  IN  A  SOFTWARE  BASE  LIBRARY 

1.  Command 

cl  library_name  output_file 

2.  Description 

Generate  a  list  of  component  names  defined  in  library  library _name.  This  list 
can  be  used  for  named  look  up  of  components  in  the  software  base.  The  list  is  written  to 
the  file  output_riIe. 

3.  Example 

%caps_software_base  cl  Ada  component_list 

L       LIST  OF  PSDL  TYPES  IN  A  SOFTWARE  BASE  LIBRARY 

1.  Command 

tl  library_name  output_file 

2.  Description 

Generate  a  list  of  PSDL  type  components  defined  in  library  library_name. 
This  list  can  be  used  for  named  look  up  of  type  components  in  the  software  base.  The 
list  is  written  to  the  file  output_file. 

3.  Example 
%caps_software_base  tl  Ada  type_list 
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J.      LIST  OF  PSDL  OPERATORS  IN  A  SOFTWARE  BASE  LIBRARY 

1.  Command 

ol  library _name  output_file 

2.  Description 

Generate  a  list  of  PSDL  operator  components  defined  in  library 
library _name.  This  list  can  be  used  for  named  look  up  of  components  in  the  software 
base.  The  list  is  written  to  the  file  output_file. 

3.  Example 

%caps_software_base  ol  Ada  operator_list 

K.     KEYWORD  QUERY 

1.  Command 

kwq  library _name  keyword_list  output_file 

2.  Description 

Perform  a  keyword  query  on  library  Iibrary_name  using  the  keywords  in  the 
file  keywordjist  and  write  the  output  to  output_fiIe.  The  output  file  contains  the 
component  name,  the  percentage  of  keywords  matched,  and  the  first  line  of  the 
description  of  the  component. 

3.  Example 

%caps_software_base  kwq  Ada  query _keyword_list  result_list 
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L.     COMPONENT  QUERY 

1.  Command 

cq  library _name  psdl_file  output_file 

2.  Description 

Performs  a  query  by  specification  on  the  library  library_name  using  the 
PSDL  specification  in  psdl_rile  for  the  query.  Writes  the  output  to  output_fiIe.  The 
output  file  contains  the  name  of  the  component,  the  percentage  score  from  semantic 
matching,  and  the  first  line  of  the  description  for  the  component. 

3.  Example 

%caps_software_base  cq  Ada  query.file  result_file 

M.    GENERATE  MATCHING  MAP 

1.  Command 

cgm  library_name  psdl_file  component_name  output_file 

2.  Description 

Generate  a  matching  map  of  how  the  component  component_name  matches 
the  PSDL  specification  in  psdl_rile  and  writes  the  map  to  the  file  output_file.  This 
function  is  currently  not  implemented. 

3.  Example 

%caps_software_base  cgm  Ada  query. psdl  result_file 
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N.     COMPONENT  DIAGNOSTICS 

1.  Command 

cdiag  library _name  component_name  output_file 

2.  Description 

Creates  a  text  file  that  contains  diagnostic  information  about  the  component. 

3.  Example 

%caps_software_base  cdiag  Ada  sb_set 
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APPENDIX  F  -  CAPS  SOFTWARE  BASE 
GRAPHICAL  USER  INTERFACE  USERS 

MANUAL 


A.     BASIC  MOUSE  TECHNIQUES 

1.  Clicking 

Clicking  the  mouse  means  moving  the  cursor  to  the  desired  location  and 
pressing  the  left  mouse  button  and  then  releasing  it. 

2.  Double  Clicking 

Double  clicking  means  clicking  the  mouse  on  an  item  twice  in  rapid 
succession.  This  technique  is  often  used  to  select  an  item  from  a  list  of  items. 

3.  Dragging 

Dragging  and  item  is  accomplished  by  moving  the  cursor  to  the  desired  item 
and  pressing  the  left  mouse  button.  While  holding  the  button  down  the  item  can  be 
moved  (dragged)  to  the  desired  location.  To  complete  the  operation  simply  release  the 
mouse  button. 

4.  Push  Buttons 

A  button  is  pushed  by  clicking  the  left  mouse  button  while  the  mouse  cursor  is 
over  the  button.  Pushing  a  button  will  cause  the  labeled  action  to  take  place. 
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5.  Pull  Down  Menus 

A  pull  down  menu  is  selected  by  clicking  the  left  mouse  button  on  the  menu 
title  and  holding  the  button  down.  A  list  of  the  available  options  for  this  menu  will  be 
displayed.  To  select  one  of  the  available  options  move  the  mouse  to  the  option  (a 
highlighted  bar  will  follow  the  mouse)  and  let  up  on  the  mouse  button.  Letting  up  on  the 
mouse  button  anywhere  outside  of  the  pull  down  menu's  option  list  will  take  no  action. 

6.  Scrolling 

1.  Click  on  scroll  bar  arrows  to  scroll  display  one  line  in  the  desired  direction. 

2.  Click  above  or  below  the  scroll  bar  display  icon  to  move  up  or  down  a  page  of 
information. 

3.  Drag  the  scroll  bar  display  icon  to  the  desired  position  in  the  view. 

4.  Use  the  middle  mouse  button  to  get  the  "Grabber  Hand"  which  can  be  used  to 
move  the  display.  This  method  can  be  used  on  all  scrolling  views  even  if  there  is 
no  scroll  bar.  This  is  useful  for  string  editors  that  have  no  scroll  bars. 

7.  Sizing  Windows 

All  of  the  windows  in  the  Software  Base  user  interface  have  been  designed  to 
allow  resizing  to  user  preferences.  The  method  used  to  resize  a  window  depends  on  the 
version  of  XI 1  window  manager  that  is  in  use.  The  examples  in  this  manual  are  for  the 
OpenWindows  manager. 

To  resize  a  windows,  In  OpenWindows,  simple  drag  any  comer  of  the  window 
in  the  desired  direction  and  the  window  will  be  resized. 
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B.  STARTING  THE  SOFTWARE  BASE  GRAPHICAL  USER  INTERFACE 

The  Software  Base  graphical  user  interface  is  started  by  executing  the  command 
softbase.exe  from  the  command  line.  The  path  for  the  CAPS  executables  must  be  in  your 
path.  Currently  you  must  be  either  working  on  suns5  or  rxterm'ed  to  suns5  to  use  this 
interface.  This  is  due  to  the  requirement  that  the  Interviews  3.0  libraries  must  be 
mounted  for  the  interface  to  execute.  These  libraries  are  currently  only  mounted  on 
suns5. 

C.  CAPS  SOFTWARE  BASE  MAIN  MENU  (FIGURE  F.l) 

The  CAPS  Software  Base  main  menu  is  the  top  level  of  the  Software  Base 
Browsing  System.  From  here  all  options  of  the  Software  Base  are  available.  These 
options  are  to  add  new  components,  update  existing  components,  delete  components, 
browse  by  keyword,  browse  operators,  browse  types,  query  for  a  given  specification, 
and  get  on-line  help  (The  help  system  is  currently  not  implemented). 

These  options  are  organized  into  four  categories:  File,  Browse,  Query,  and  Help. 
These  categories  make  up  the  main  menu  for  the  system. 

1.      File 

The  file  option  is  a  pull  down  menu  of  operations.  These  operations  are  Add 
Component,  Update  Component,  and  Quit.  See  section  A. 5  for  details  on  how  to  select 
pull-down  menu  items. 
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^ 


C^PS  SOFTBASE 


File         Browse         Query 


Help 


Figure  -  F.l  Main  Menu 


a.      Add  Component 


When  this  option  is  chosen  the  user  will  be  prompted  for  the  input  files 
by  the  input  file  selection  window.  See  section  D  for  a  detailed  description  of  how  to  use 
this  window. 

Once  the  input  files  have  been  selected  the  system  attempts  to  add  the 
component  to  the  software  base.  If  an  error  occurs  an  error  display  will  be  provided.  If 
no  errors  have  occurred  the  input  window  will  be  removed  from  the  screen  to  indicate  a 
successful  addition. 

b.      Update  Component 

This  option  is  used  to  provide  an  updated  version  of  an  existing 
component.  The  method  used  is  the  same  as  for  adding  components  except  that  the  new 
PSDL  specification  and  implementation  files  will  replace  those  that  are  currendy  in  the 
software  base. 
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c.      Quit 

This  option  quits  the  Software  base  Browsing  system. 
2.      Browse 

The  browse  option  is  a  pull-down  menu  of  browsing  operations.  These 
operations  are  By  Keyword,  By  Operator,  and  By  Type.  See  section  I  for  details  on  how 
to  select  pull-down  menu  items. 

a.  By  Keyword 

Browsing  by  keyword  means  that  the  user  will  provide  a  list  of  desired 
keywords  via  the  Keyword  Selection  Window  and  then  will  be  given  a  Component 
Selection  Window  containing  of  those  components  in  the  software  base  which  are 
members  of  at  least  one  of  those  keyword  categories. 

The  contents  of  the  Component  Selection  Window  are  ordered  such  that 
those  components  which  are  members  of  more  of  the  desired  keyword  categories  are 
first.  See  section  E  for  more  information  on  using  the  Keyword  Selection  Window  and 
section  F  for  use  of  the  Component  Selection  Window. 

b.  By  Operator 

Browsing  by  operator  provides  a  Component  Selection  Window 
containing  all  of  the  operator  components  in  the  software  base.  These  components  are 
ordered  alphabetically.  See  section  F  for  details  of  how  to  use  the  Component  Selection 
Window. 


250 


c.      By  Type 

Browsing  by  operator  provides  a  Component  Selection  Window 
containing  all  of  the  type  components  in  the  software  base.  These  components  are 
ordered  alphabetically.  See  section  F  for  details  of  how  to  use  the  Component  Selection 
Window. 

3.  Query 

The  query  option  allows  for  a  query  of  the  software  base  based  on  a  given 
PSDL  specification.  The  user  is  prompted  for  a  query  specification  with  the  Query 
Specification  Window.  If  any  components  were  found  that  match  the  query  specification 
then  a  Component  Selection  Window  is  provided  with  all  of  the  names  of  the  matches  in 
it.  See  section  VII  for  details  on  the  Component  Selection  Window. 

4.  Help 

This  option  provides  an  on-line  version  of  this  manual  (not  implemented). 

D.     INPUT  FILE  SELECTION  WINDOW  (FIGURE  F.2) 

Inputs  to  the  software  base  are  made  up  of  three  text  files.  The  PSDL  specification, 
the  implementation  specification,  and  the  implementation  body.  The  input  file  selection 
window  allows  the  selection  of  each  of  these  files. 

The  file  selection  boxes  show  the  current  working  directory  in  the  Directory  Box, 
and  all  of  the  files  in  that  directory  in  the  rest  of  the  box.  Double  clicking  on  a  file  in  one 
of  the  file  selection  boxes  selects  that  file.    Double  clicking  on  a  directory  in  a  file 
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selection  box  will  change  to  that  directory.  A  new  directory  can  be  entered  manually  by 
typing  it  in  the  Directory  box.  The  name  of  the  file  can  be  entered  manually  by  typing  it 
into  the  File  Name  box. 
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Figure  -  F.2  Input  File  Selecter 
Once  all  of  the  input  files  have  been  entered  pushing,  OK  will  cause  the  input  files 
to  be  processed.  Pushing  Cancel  will  cause  the  input  operation  to  terminate. 

E.      KEYWORD  SELECTION  WINDOW  (FIGURE  F.3) 

This  window  allows  the  selection  of  keywords  for  a  keyword  search  of  the  software 
base.  All  keyword  categories  in  the  software  base  are  list  in  the  left  hand  Box.  Double 
clicking  on  a  keyword  will  add  it  to  the  Keyword  Selected  box  on  the  right  hand  side. 
Double  clicking  on  keywords  in  the  Selected  box  will  remove  them.  Once  the  desired 
keywords  have  been  selected  pushing  OK  will  start  the  search  of  the  software  base. 
Pushing  Cancel  will  abort  the  search. 
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Figure  -  F.3  Keyword  Selecter 

F.      COMPONENT  SELECTION  WINDOW  (FIGURE  F.4) 

This  window  displays  a  list  of  component  names  and  a  one  line  description  of  each 
component.  Double  clicking  on  a  component  will  bring  up  a  view  of  that  components 
PSDL  specification.  See  section  VIII  for  details  on  using  this  view.  This  window  is  not 
removed  automatically  when  a  component  is  selected  for  viewing  so  that  multiple 
components  can  be  viewed  simultaneously.  To  remove  this  window  form  the  display 
push  the  cancel  button.  Pressing  the  OK  button  will  view  the  currendy  selected 
component. 
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Figure  -  F.4  Component  Selecter 
G.     PSDL  SPECIFICATION  VIEWING  WINDOW  (FIGURE  F.5) 

This  window  displays  the  PSDL  specification  for  a  given  component  and  allows 
various  actions  to  take  place  on  that  component.  The  action  available  are:  printing  the 
specification,  saving  the  specification  to  a  file,  deleting  the  component  from  the  software 
base,  viewing  the  components  Ada  specification,  and  searching  for  a  given  text  string  in 
the  specification. 

1.      File 

This  is  a  pull-down  menu  for  the  print,  save,  delete,  and  quit  view  operations. 

a.  Print 

Causes  a  printout  of  the  specification  to  be  spooled  to  the  default  printer. 

b.  Save  As 

Prompts  the  user  for  a  file  name  and  saves  the  specification  to  that  file. 
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c.  Delete 

The  system  verifies  that  no  other  components  are  dependant  on  this 
component  and  if  not  allows  the  user  to  confirm  that  they  wish  to  remove  this  component 
from  the  software  base. 

d.  Quit  View 

Removes  this  view  from  the  display. 
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Figure  -  A. 5  PSDL  Specification  Viewing  Window 


2.      Find 


Prompts  for  text  to  search  for  and  if  found  repositions  the  cursor  to  that  text 
(not  implemented). 

3.      View  Ada  Specification 

Provides  the  Ada  Specification  Viewing  Window  for  this  component. 
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H.     ADA  SPECIFICATION  VIEWING  WINDOW  (FIGURE  F.6) 

This  window  displays  the  Ada  specificarion  for  a  given  component  and  allows 
various  actions  to  take  place  on  that  component.  The  action  available  are:  printing  the 
specification,  saving  the  specification  to  a  file,  viewing  the  components  Ada  body,  and 
searching  for  a  given  text  string  in  the  specification. 
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Figure  -  F.6  Ada  Specification  Viewing  Window 


1.      File 


This  is  a  pull-down  menu  for  the  print,  save,  and  quit  view  operations. 

a.  Print 

Causes  a  printout  of  the  specification  to  be  spooled  to  the  default  printer. 

b.  Save  As 

Prompts  the  user  for  a  file  name  and  saves  the  specification  to  that  file. 
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c.      Quit  View 

Removes  this  view  from  the  display. 

2.  Find 

Prompts  for  text  to  search  for  and  if  found  repositions  the  cursor  to  that  text 
(not  implemented). 

3.  View  Ada  Body 

Provides  the  Ada  Body  Viewing  Window  for  this  component. 

I.       ADA  BODY  VIEWING  WINDOW  (FIGURE  7) 

This  window  displays  the  Ada  body  for  a  given  component  and  allows  various 
actions  to  take  place  on  that  component.  The  action  available  are:  printing  the  body, 
saving  the  body  to  a  file,  and  searching  for  a  given  text  string  in  the  body. 

1.      File 

This  is  a  pull-down  menu  for  the  print,  save,  and  quit  view  operations. 

a.  Print 

Causes  a  printout  of  the  body  to  be  spooled  to  the  default  printer. 

b.  Save  As 

Prompts  the  user  for  a  file  name  and  saves  the  body  to  that  file. 

c.  Quit  View 

Removes  this  view  from  the  display. 
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2.      Find 

Prompts  for  text  to  search  for  and  if  found  repositions  the  cursor  to  that  text 
(not  implemented). 
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Figure  -  F.7  Ada  Body  Viewing  Window 
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APPENDIX  -  G  SOFTWARE  BASE  GRAPHICAL 
USER  INTERFACE  SOURCE  CODE 

All  of  the  classes  with  the  extension  of  "-core"  in  their  name  are  implemented  with 
code  generated  by  the  ibuild  tool  which  is  part  of  Interviews  3.0b  [Ref  19].  This  code  is 
not  presented  here  since  it  was  machine  generated.  The  class  definitions  for  these  "core 
classes"  are  included  since  the  leaf  classes  inherit  from  the  "core  classes".  Ibuild 
generated  skeletons  for  the  leaf  classes.  All  that  was  required  to  implement  this  GUI  was 
the  addition  of  the  code  for  each  of  the  leaf  class  methods. 
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#ilndef  SB_main_menu.core-h 
#deline  SB_main_menu_core_h 

#include  <InterViews/scene.h> 

class  Menultem; 

class  SB_main-menu_core  :  public  MonoScene  { 
public: 

SB_main_menu_core( const  char*); 

virtual  void  -AddComponent(); 

virtual  void  _UpdateComponent(); 

virtual  void  quit(); 

virtual  void  browse_by-keyword(); 

virtual  void  brovvse_by_type(); 

virtual  void  browse_by_operator(); 

virtual  void  query(); 

virtual  void  _Help(); 
protected; 

Interact  or*  Interior(); 
protected: 

Menultem*  the_menuJile-quit; 

Menultem*  the_menu .browse .key word; 

Menultem*  the_menu_browse_type; 

Menultem*  the jnenu.browse.by .operator; 

Menultem*  the Jiienu. query; 

}; 

#endif 
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#ifndef  SB_main_menu_h 
#def  ine  SB_main_menu_h 

#iiiclucie  "SB_main_menu-core.h" 

class  SB_main_menu  :  public  SB_main_menu_core  { 
public: 

SB_main_menu(const  char*); 

virtual  void  _AddComponent(); 
virtual  void  _UpdateComponent(); 
virtual  void  quit(); 
virtual  void  browse_by_keyword(); 
virtual  void  browse_by_type(); 
virtual  void  brovvse_by_operator(); 
virtual  void  query(); 
virtual  void  _Help(); 

}; 

#endif 
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#ifndel  body.viewer.coreJi 
#def ine  body.viewer.coreJi 

#include  <InterViews/scene.h> 

class  HBox; 
class  Message; 
class  MenuBar; 
class  PuUdownMenu; 
class  TextEditor; 
class  ButtonState; 

class  body.viewer.core  :  public  MonoScene  { 
public; 

body-viewer_core(const  char*); 

virtual  void  .Saveas(); 

virtual  void  J'rintO; 

virtual  void  _QuitView(); 

virtual  void  Jind(); 
protected: 

Interactor*  Interior(); 
protected: 

HBox*  theJilejiame; 

Message*  defaultjiiessage; 

MenuBar*  menu.bar; 

PuUdownMenu*  file.menu; 

TextEditor*  the.editor; 

}; 

#endif 
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#ilndel  body.viewerJi 
#def ine  body.viewerJi 

#include  "body .viewer-core. h" 

class  body.viewer  :  public  body_viewer_core  { 
private: 

char*  thejstring; 

char*  componentjiame; 

TextBuffer  *the-bufFer; 

public: 

body_viewer(const  char*componentJiame,  char  *body_file); 

virtual  void  .Saveas(); 
virtual  void  J'rintO; 
virtual  void  _QuitView(); 
virtual  void  _Find(); 

}; 

#endif 
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#ifndel  component_selecter_coreJi 
#def  ine  component^electer.coreJi 

#include  <InterViews/scene .h> 

class  StringBrowser; 
class  ButtonState; 
class  PushButton; 

class  component_selecter_core  :  public  MonoScene  { 
public: 

component_selecter_core(const  char*); 

virtual  void  selected(); 

virtual  void  cancel(); 

virtual  void  okay(); 
protected; 

Interactor*  Interioi(); 
protected: 

ButtonState*  the.browserJBS; 

ButtonState*  the-cancel_BS; 

ButtonState*  the-ok_BS; 

StringBrowser*  the -browser; 

PushButton*  canceLbutton; 

PushButton*  ok-button; 

}; 

#endif 
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#ifndef  componentjselecterJi 
#def  ine  component^electerJi 

#include  " component_selecter-core .  h" 
#include  <stream.h> 

class  component_selecter  :  public  component_selecter_core  { 
public: 

component_selecter(const  char*); 

void  Insert_components(); 

void  Insert_components(  char  *file_name); 

virtual  void  selected(); 

virtual  void  cancel(); 

virtual  void  okay(); 

}; 

#endif 
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#ilndef  delete_warning_core_h 
#def  ine  delete_warning-coreJi 

tfinclude  <InterViews/dialog.h> 

class  ButtonState; 

class  delete-warning-core  :  public  Dialog  { 
public: 

delete_warning_core(const  char*); 

protected: 

Interactor*  Interior(); 
protected: 

}; 

#endif 
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#ifndel  delete_warning_h 
#def ine  delete.warningJi 

#include  "delete.warning-core . h" 

class  delete.warning  :  public  delete_warning_core  { 
public: 

delete_warning( const  char*); 

}; 

#endil 
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#ifndef  dependancy^electerxore  Ji 
#deline  dependancy_selecterj:oreii 

tfinclude  <InterViews/scene.h> 

class  Message; 
class  StringBrowser; 
class  ButtonState; 
class  PushButton; 

class  dependancy-selecterxore  :   public  MonoScene  { 
public: 

dependancy-selecter  j:ore(  coust  char  * ) ; 

virtual  void  new_selection(); 

virtual  void  reniove_selection(); 

virtual  void  cancel(); 

virtual  void  okay(); 
protected: 

Interactor*  Interior(); 
protected: 

ButtonState*  the.choice_BS; 

ButtonState*  the^elected-BS; 

ButtonState*  cancel.BS; 

ButtonState*  okay_BS; 

Message*  the-iiame; 

Message*  the.choicejiiessage; 

StringBrowser*  choice-browser; 

Message*  the_selected  .message; 

StringBrowser*  selected  .browser; 

PushButton*  the_cancel -button; 

PushButton*  the_ok_button; 

}; 

#endif 
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#ifndef  dependancyjselecterJi 
#def  ine  dependancy_selecter  Ji 

#include  "dependaincy-selecter-core . h" 

class  dependancy_selecter  :  public  dependancy_selecter_core  { 
public: 

dependancy^electer( const  char*); 

void  Insert_components(); 
virtual  void  new_selection(); 
virtual  void  remove_selection(); 
virtual  void  cancel(); 
virtual  void  okay(); 

}; 

#endif 
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#ifndel  error  .viewer  .core  _h 
#def  ine  error_viewer_coreJi 

#include  <InterViews/scene.h> 

class  HBox; 
class  Message; 
class  TextEditor; 
class  ButtonState; 

class  error-viewer.core  :  public  MonoScene  { 
public: 

error  .viewer  _core(const  char*); 

virtual  void  ok_action(); 
protected: 

Interactor*  Interior(); 
protected: 

ButtonState*  ok.BS; 

HBox*  theJilejiame; 

Message*  defaultjiiessage; 

TextEditor*  the.editor; 

}; 

#endif 
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#ifndef  error.viewerJi 

#def ine  error.viewerJi 

#include  <InterViews/textbuf f er . h> 

#include  "error.viewer-core.h" 

class  error.viewer  :  public  error.viewer.core  { 
private: 

TextBuffer  *the_buffer; 
public: 

error_viewer(const  char*iiame,  char  *error_file); 
void  ok_action(); 

}; 

#endif 
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#ilndef  input  Jile_selecter .core  Ji 
tfdeline  input_file_selecter_coreJi 

#include  <InterViews/scene.h> 

class  StringEditor; 
class  ButtonState; 
class  FileBrowser; 

class  input_file_selecter_core  :  public  MonoScene  { 
public: 

input _file_selecter_core(const  char*); 

virtual  void  new_psdLfile_name(); 

virtual  void  update_pdsLdir(); 

virtual  void  psdl_selected(); 

virtual  void  nevv_spec_file_name(); 

virtual  void  update_ada_spec_dir(); 

virtual  void  spec_selected(); 

virtual  void  new_body-file_name(); 

virtual  void  update_ada^body_dir(); 

virtual  void  body_selected(); 

virtual  void  cancel(); 

virtual  void  okay(); 
protected: 

Interactor*  Interior(); 
protected: 

ButtonState*  psdlJile-iiame.BS; 

ButtonState*  psdl.dir.BS; 

ButtonState*  psdi_BS; 

ButtonState*  spec_file-name_BS; 

ButtonState*  ada_spec_dir_BS; 

ButtonState*  spec_filesJ3S; 

ButtonState*  body_file_name_BS; 

ButtonState*  ada-body_dir_BS; 

ButtonState*  bodyJilesJBS; 

ButtonState*  canceLBS; 

ButtonState*  okay_BS; 

StringEditor*  psdl_file_name; 

StringEditor*  psdi.dir; 

FileBrowser*  psdl_files; 

StringEditor*  spec_file_name; 

StringEditor*  ada_spec_dir; 

FileBrowser*  spec_files; 

StringEditor*  body_file_name; 

StringEditor*  ada_body_dir; 

FileBrowser*  body_files; 

}; 

#endif 
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#ilndef  inputJile^electerJi 
#def  ine  input_file^electerJi 

#include  "input_f  ile.selecter-core.h" 

class  inputJilejselecter  :  public  input_file_selecter_core  { 
public: 

input Jile_selecter( const  char*); 

virtual  void  new_p.sdLfile_name(); 
virtual  void  update_pdsl_dir(); 
virtual  void  psdljselected(); 
virtual  void  new_spec-file_name(); 
virtual  void  update_ada.spec-dir(); 
virtual  void  specjselected(); 
virtual  void  new_body_file_name(); 
virtual  void  update_ada^body_dir(); 
virtual  void  body^elected(); 
virtual  void  cancel(); 
virtual  void  okav(); 

}; 

#endif 
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#ifndel  keyword .selecter .core Ji 
#def  ine  keyword  .selecter  .core  Ji 

#include  <InterViews/scene.h> 

class  Message; 
class  StringBrowser; 
class  ButtonState; 
class  PushButton; 

class  keyword^electer.core  :  public  IVIonoScene  { 
public: 

key  word  .selecterxore(  const  char*); 

virtual  void  new^election(); 

virtual  void  remove.selection(); 

virtual  void  cancel(); 

virtual  void  okay{); 
protected: 

Interactor*  Interior(); 
protected: 

ButtonState*  the_choice3S; 

ButtonState*  the.selected.BS; 

ButtonState*  cancel. BS; 

ButtonState*  ok.BS; 

Message*  thejiame; 

Message*  the.choicejiiessage; 

StringBrowser*  choice-browser; 

Message*  the.selected Jiiessage; 

StringBrowser*  selected  .browser; 

PushButton*  the.canceLbutton; 

PushButton*  the.ok.button; 

}; 

#endif 
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#ifndef  keyword_selecter_h 
#def  ine  keyword_selecter_h 

#include  "keyword_selecter-core . h" 

class  keyword-selecter  :  public  keyword_selecter_core  { 
public: 

key word^electer( const  char*); 

void  Insert _keywords(); 
virtual  void  new_selection(); 
virtual  void  remove_selection(); 
virtual  void  cancel(); 
virtual  void  okay(); 

}; 

#endif 
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#ilndel  psdl_viewer_coreJi 
#def  ine  psdl_viewer_coreJi 

#include  <InterViews/scene.h> 

class  HBox; 
class  Message; 
class  MenuBar; 
class  PulldownMenu; 
class  Menultem; 
class  TextEditor; 
class  ButtonState; 

class  psdl_vievver_core  :  public  MonoScene  { 
public: 

psdl_viewer_core( const  char*); 

virtual  void  _Saveas(); 

virtual  void  _Print(); 

virtual  void  JDelete(); 

virtual  void  .QuitView(); 

virtual  void  -Find(); 

virtual  void  view_spec_action(); 
protected: 

Interactor*  Interior(); 
protected: 

HBox*  the -file  .name; 

Message*  default_message; 

MenuBar*  menu_bar; 

PulldownMenu*  file_iTienu; 

Menultem*  view_spec; 

TextEditor*  the_editor; 

}; 

#endif 
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#ifndef  psdLviewerJi 
#deline  psdLviewerJi 

#include  "psdl_viewer-core  .h" 
#include  <InterViews/textbuf f er .h> 
class  psdLviewer  :  public  psdLviewer_core 

{ 

private: 

char  *component_name; 
char  *psdl_file; 
char  *spec_file; 
char  *body_file; 
char  *the_string; 

TextBuffer  *the_buffer; 

public: 

psdLvievver( const  char*); 

virtual  void  _Saveas(); 
virtual  void  _Piint(); 
virtual  void  _Delete(); 
virtual  void  _QuitView(); 
virtual  void  _Find(); 
virtual  void  view_spec_action(); 
virtual  void  Handle(Event&:); 

}; 

#endif 
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#ifndel  query _file_dialog_coreJi 
#def  ine  query  Jile.dialog-coreJi 

#include  <InterViews/dialog.h> 

class  StringEditor; 
class  ButtonState; 
class  FileBrovvser; 

class  query  Jile.dialog.core  :  public  Dialog  { 
public: 

query -file_dialog_core( const  char*); 

virtual  void  file_name_action(); 

virtual  void  directory_action(); 

virtual  void  file_brovvser_action(); 

virtual  void  canceLaction(); 

virtual  void  okay_action(); 
protected: 

Interactor*  Interioi(); 
protected: 

ButtonState*  dialog_BS; 

ButtonState*  the_file_name_BS; 

ButtonState*  directory _name_BS; 

ButtonState*  file_brovvser  J3S; 

ButtonState*  cancel.BS; 

ButtonState*  okay_BS; 

StringEditor*  theJilejianie; 

StringEditor*  directory  .name; 

FileBrovvser*  the_file_bro\vser; 

}; 

#endif 
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#ifndef  query Jile_dialog_h 
#def  ine  query _file-dialog_h 

#include  "query.f ile_dialog-core.h" 

class  query -file.dialog  :  public  query_file_dialog_core  { 
public: 

query _file_dialog( const  char*); 

virtual  void  file_name.action(); 
virtual  void  directory _action(); 
virtual  void  file_browser_action(); 
virtual  void  canceLaction(); 
virtual  void  okay_action(); 
const  char*  file_iiame(); 

}; 

#endif 
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#ifndel  save_browser_dialog_coreJi 
#cief  ine  save_browser_dialog_core-h 

#include  <InterViews/dialog.h> 

class  StringEditor; 
class  ButtonState; 
class  FileBrovvser; 

class  save_browser.dialog_core  :  public  Dialog  { 
public: 

save_bro\vser_dialog-Core( const  char*); 

virtual  void  update_file_name(); 

virtual  void  update_directory(); 

virtual  void  file_browser_action(); 

virtual  void  canceLactiou(); 

virtual  void  ok_actioii(): 
protected: 

Interactor*  Interior(); 
protected: 

ButtonState*  dialogJBS; 

ButtonState*  file_name_BS; 

ButtonState*  new  .directory  _BS: 

ButtonState*  file_browser  J3S; 

ButtonState*  cancel.BS; 

ButtonState*  ok.BS; 

StringEditor*  theJilejiame; 

StringEditor*  the.directory  Jiame; 

FileBrowser*  theJile_bro\vser; 

}; 

#endif 
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#ifndef  save.browser.dialogJi 
#deline  save.browser.dialogJi 

#include  " save_browser_dialog-core .  h" 

class  save.browser -dialog  :  public  save_browser_dialog_core 

{    , 
private: 

char  *default_name; 

public: 

save_browser-dialog( const  char*name); 

virtual  void  file_browser_action(); 
virtual  void  update_file_name(); 
virtual  void  update_directory(); 
virtual  void  canceLactiou(); 
virtual  void  ok_action(); 
const  char  *file_iiame(); 

}; 

#endil 
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#ilndef  spec  .viewer  .core  _h 
#def  ine  spec  .viewer  _coreJi 

#include  <InterViews/scene.h> 

class  HBox; 
class  Message; 
class  MenuBar; 
class  PuUdowiiMenu; 
class  Menultem; 
class  TextEditor; 
class  ButtonState; 

class  spec.viewer.core  :  public  MonoScene  { 
public: 

spec.viewer_core(const  char*); 

virtual  void  .Saveas(); 

virtual  void  -Print(); 

virtual  void  _QuitVievv(); 

virtual  void  JindO; 

virtual  void  view.body-action(); 
protected: 

Interactor*  Interior(); 
protected: 

HBox*  theJile_iiame; 

Message*  defauitjiiessage; 

MenuBar*  menu.bar; 

PulldownMemi*  filejiienu; 

Menultem*  view.body; 

TextEditor*  tiie.editor; 

}; 

ffendif 
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#ilndef  spec  .viewer  _h 
#deline  spec.viewerJi 

#include  "spec_viewer-core.h" 

class  spec_viewer  :  public  spec_viewer_core  { 
private: 

char  *componentjiame; 

char  *bodyJile; 

char  *the.string; 

TextBuffer  *the_buffer; 

public: 

spec_viewer(const  char*component_name,  char*specJile,  char  *bodyJile); 

virtual  void  ^aveas(); 
virtual  void  J'rintO; 
virtual  void  _QuitView(); 
virtual  void  _Find(); 
virtual  void  view_body_action(); 

}; 

# end if 
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#include  <InterViews/menu.h> 
#include  "SB_main_menu.h" 
#include  <InterViews/button.h> 
#include  <InterVieHs/interactor . h> 
#include  <InterViews/2 . 6/_enter .  h> 
#include  <InterViews/world.h> 
#include  "keyword_selecter  .h" 
#include  "  component_selecter .  h" 
#include  "input.f  ile.selecter  .h" 
#include  "error.viewer  .h" 
#include  <streaun.h> 
tfinclude  <strstreajn.h> 
#include  <stdlib.h> 
#include  <string.h> 
#include  "query.f  ile.dialog.h" 


#def  ine  TEMP_ENVIRONMENT  "TEMP' 
#def  ine  CAPS-ENVIRONMENT  "CAPS" 
#define  DEFAULT-TEMP  "/tmp" 
#def  ine  TL-PREFIX  "tmptl" 
#def  ine  ERROR-PREFIX  "tmperror" 
#def  ine  SB-PROGRAM  "sb" 


SB_main-menu::SB-maiii-inenu(const  char*  name)  :  SB-main-menu_core(name)  {} 

void  SB-niain-menu::quit() 

{ 

World*  w=GetVVorld(); 

vv— quit(); 
} 

void  SB-main-menu::brow.se_by_kevword() 

{ 

World*  wzzQetWorldO; 

keyword-selecter*  the -key  word  ^electer=new  keyword  _selecter("the-key-Word_selecter"); 

the -key  word -selecter-^Insert -key  words(); 

/ /the.keyword.selecier->SetName('' Keyword  Selection"); 

w—*InsertToplevel(the_key  word  ^electer, this); 

} 

void  SB_main-menu::browse_by-tvpe() 

{ 

World*  w=GetWorld(); 

component-selecter*  component-selecter_by-type=new 

component_selecter("  component  _s  elect  er-by-type"); 
//  create  list  of  components 
int  command-Status; 
ostrstream  command-buffer; 
ostrstream  remove-buffer; 
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char  *caps.dir  =  getenv(CAPSJENVIRONMENT); 
char  *temp.dir  =  getenv(TEMP.ENVIRONMENT); 
if  (temp-dir  ==  NULL) 

{ 

temp.dir  =  new  char[strlen(DEFAULT-TEMP)  +  1]; 

strcpy(temp_dir,  DEFAULT _TEMP); 

}; 

command_buffer  <  SB.PROGRAM  <  "  tl  ada  "; 
char  *list_file  =  tempnam( temp.dir,  TL_ PREFIX); 
char  *errorJile  =  tempnam(temp-dir,  ERROFLPREFIX); 
command-buffer  <C  list.file  <C  "   >   "  <C  error_file  <C  ends; 

remove-buffer  <C  "rm  "; 
remove-buffer  <C  error-file  <C  ends; 

char  *rm-Command  —  remove- buffer. str(); 

char  *command  =:  command-buffer.str(); 
command-status=system(  command); 
if  (command_status==0) 

{ 

//  no  error  occured  so  pass  the  tl  to  the  component  selecter 
component-selecter-by.type— 'Insert  j:omponents(  list -file); 
w— Insert  Application(component-selecter_by -type); 

} 
else 

{ 

//  display  error  info 

cerr  <C  "AN  ERROR  OCCURED  WITH  COMMAND   "  <  command  <  "\n" 

}; 


//  remove  temp  files 
system(  rni-command ) ; 
delete  command; 
delete  rm-command; 


}; 


void  SB_main-menu::browse-by-operator() 

{ 

World*  w=GetWorld(); 
component-selecter*  component_selecter-by-type=new 

component-selecter("  component -S  elect  er-by_type"); 
//  create  list  of  components 
int  command-Status; 
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ostrstream  command-buffer; 
ostrstream  remove-buffer; 

char  *caps-dir  =  getenv(CAPS_ENVIRONMENT); 
char  *temp-dir  =  getenv(TEMP-ENVIRONMENT); 
if  (temp-dir  --  NULL) 

{ 

temp-dir  =  new  char[strlen(DEFAULT-TEMP)  +  1]; 
strcpv(temp.dir,  DEFAULT  .TEMP); 

}; 

command.buffer  <C  SB-PROGRAM  <  "  ol  ada  "; 
char  *list_file  =  tempnam(temp_dir,  TL_PREFIX); 
char  *error-file  =  tempnam(temp_dir,  ERROR-PREFIX); 
command-buffer  <C  list-file  <C  "   >   "  <C  error_file  <C  ends; 

remove-buffer  <C  "rm   "; 
remove-buffer  <C  error-file  <C  ends; 

char  +rm-command  —  remove.buffer.str(); 

char  *command  =  command_buffer.str(); 
command-status=system(  command); 
if  (command-status==:0) 

{ 

//  no  error  occured  so  pass  the  il  to  the  component  selecter 

component.selecter_by_type-^Insert  j:omponents(list -file); 

w— Insert  Application(component-selecter -by -type); 

} 
else 

{ 

//  display  error  info 

cerr  <  "AN   ERROR  OCCURED   WITH  COMMAND   "  <  command  <  "\n"; 

}; 


//  remove  temp  files 
system(rm-command); 
delete  command; 
delete  rm-command; 


} 

void  SB_main_menu::query() 

{ 

World*w=GetWorid(); 

query -file -dialog*  the-query-dialog=new 

query -file -dialog("the_query-dialog"); 
vv^InsertTransient(the -query -dialog,  this); 
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boolean  status_flag=the_query .dialogs Accept(); 
if(status_flag) 

{ 

w— ►syncO; 

int  command-Status; 

ostrstream  command.buffer; 

ostrstream  remove_buffer; 

char  *caps-dir  =  getenv(CAPS  J:NVIR0NMENT); 
char  *temp-dir  =  getenv(TEMP_ENVIRONMENT); 
if  (temp-dir  ==  NULL) 

{ 

temp_dir  =:  new  char[strlen(DEFAULT_TEMP)  +  1]; 
sticpy(temp.dir,  DEFAULT _TEMP); 

}; 

command-buffer  <  SB-PROGRAM  <  "   cq  ada  "; 
char  *list-file  —  tempnam(temp_dir,  TL_PREFIX); 
char  *error_file  =  tempnam(temp-dir,  ERROR^PREFIX); 
command-buffer  <C  the-query-dialog— >file-name()  <C  "  "; 
command-buffer  <C  list-file  <C  "    >    "  <C  error-file  <^  ends; 

remove-buffer  <C  "rm  "; 
remove-buffer  <C  error_file  <C  ends; 

char  *rm-Command  =  remove-buffer. str(); 

char  ^command  =  command_buffer.str(); 
command-status=system(  command); 
if  (command-status==0) 

{ 

//  no  error  occured  so  pass  the  tl  to  the  component  selecter 

component-selecter*  component-selecter-by -query =new 
component-selecter("  component -Select  er-by_query"); 


componentjselecter-by.query— Insert -Components(list -file); 
w^hisertApplication(component^electer-by -query); 

} 
else 

{ 

//  display  error  info 
error-viewer  *error-view=new 
error_viewer("Add  Component", error-file); 
\v-^InsertApplication(error-view); 


}; 
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//  remove  temp  files 
system(rm_command); 
delete  command; 

delete  rm.command; 

}; 

w— Remove(the_query_dialog); 
delete  the_queiy -dialog; 


} 

void  SB_main_menu::-AddComponeiit()  { 

World*  w=GetWorld(); 

input_file^electer*  in_file=iiew  input Jilejselecter("in_file"); 

w— InsertApplication(in-file); 
} 

void  SB_main.menu::_UpdateComponent() 

{ 

World*  w=GetWorld(); 

inputJilejselecter*  in_file=new  input_file^electer("in_f ile"); 

w— 'Insert  Application(in_file); 

}; 

void  SB_main_menu::_Help() 

{ 

system("doc  -title    'Softbase  Help'    sof tbase_help.doc&"); 

} 
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#include  <InterViews/button.h> 
#include  <InterViews/box.h> 
#include  <InterViews/message.h> 
#include  <InterViews/menu.h> 
#include  <InterViews/texteditor . h> 
#include  <InterViews/textbuf f er . h> 
#include  "body.viewer.h" 
#include  "spec.viewer  .h" 
#include  "body_viewer  .h" 
#include  " save_browser_dialog . h" 
#include  <InterVieMs/world.h> 
#include  <InterViews/2 . 6/_eiiter . h> 
#include  <strstreain.h> 
#include  <streajn.h> 
#include  <stdlib.h> 
#include  <string.h> 

body_viewer:;body_viewer(coiist  char*  name,  char  *bodyJile)  : 
body_viewer_core(name) 

{ 

component _name=( char  *)nanne; 

ostrstream  view_name_buffer; 

view_name_buffer  <C  component-name  <C  "Implementation  Body"  <C  ends; 

the_file_name— »-Remove(default_message); 

delete  default_message: 

Message*  the_file_message=new  Message("f  ile_name", 

view_name_buffer.str(), 
Center); 

theJilejiame— ►hisert(the_filej'nessage); 

the_file_name — Change(); 

ifstream  body(body_file); 
if  (body) 

{ 

ostrstream  construct  .buffer; 
while(  !body.eof( ) ) 

{ 

char  text:=body.get(); 
if(text7^E0F) 

{ 

construct -buffer. put  (text); 

}; 
}; 

the^tring=construct -buffer. str(); 

iut  the  Jength=strlen(  the  .string); 

the_buffer=new  Text  Buffer(  the  .string, the  Jength, the  .length); 

the-editor^Edit(the_buffer); 

} 
else 

{ 
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cerr  -C  "UNABLE  TO   OPEN   BODY  FILE  TO  VIEW  FILEJJAME   IS   " 
cerr  •C  body_file  <C  "\n"; 

}; 


} 


void  body_vie\ver::-Saveas() 

{ 

ostrstream  def_iiame_buffer; 

def_iiame_buffer  <C  component-name  <C  ".body. a"  <C  ends; 

char  *def_name=def_name_buffer.str(); 

save.browser.dialog  *save_browser=new  save_browser_dialog(def_name); 

World  *w=GetVVorld(); 

w—InsertTransient  (save -browser, this); 

boolean  save Jlag^save -browser— *Accept(); 

if(save-flag) 

{ 

ofstream  output _file(save-browser^file_name()); 

output-file  <C  the.string; 

output-file.close(); 

}; 


w— Remove(save-brovvser); 
delete  save-browser; 


} 


void  body-viewer::_Print()  { 
/*  unimplemented  ♦/ 

} 


void  body_viewer::_Find()  { 

/*  unimplemented  */ 
} 


void  body_viewer::_QuitView() 

{ 

//  renxove  temp  file  and  remove  application  from  the  world 

World  *w=GetWorld(); 
w— »Remove(  this ) ; 
// delete  this; 

} 
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#include  <IntGrViews/button.h> 
#include  <InterViews/strbrowser . h> 
#include  "component_selecter  .h" 
#include  <InterViews/2.6/-enter .h> 
#include  <streajn.h> 
#include  <string.h> 
#include  <InterViews/world.h> 
#include  "psdl.viewer  .h" 
#include  <strstreajn.h> 

extern  "C" 

{ 

int  system(char  *); 

}; 

#def  ine  MAX_NAME.LENGTH  256; 

component^electer::coinponeiitj5electer( const  char*  name)  :  component_selecter_core(name)  {} 

void  component_selecter::selected() 

{ 

int  state .value; 

the_browser  JiS — GetValue(state_value); 

if(state_value7^0) 

{ 

World*  w=GetWorld(); 

w— sync(); 

int  selected index=theJDrowser—i-Selection(0); 

if(selected  Jndex>0) 

{ 

char  *selected_buffer=the  J)rowser— <■ 

String(selectedJndex); 
char  *selected_name=new  char[strlen(selected_buffer)+l]; 
int  i=0; 
while(selected_buffer[i]^'  ') 

{ 

selected_name[i]=selected-buffer[i]; 

i++; 
}; 

selected  _iiaiTie[i]=NULL; 

psdLviewer*  the-psdLview=new 

psdLviewer(selected_name); 
w— i-InsertApplication(the-psdl_view); 

} 
else 

{ 

w— RingBell(lOO); 

}; 

the_browser  J3S — ■SetValue(O); 
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} 


}; 


void  component^electer::cancel() 

{ 

World*  w=GetWorld(); 

w^Remove(this); 
delete  this; 

}; 

void  componeiit^electer: :okay ( ) 

{ 

int  state.value; 

thejokJ3S— ►GetValue(state_value); 

if(state_value7^0) 

{ 

the-browser_BS— »SetValue(l); 

the.ok_BS— SetValue(O); 

}; 


void  component_selecter:: Insert _components() 

{ 

the.browser — Append("coinp   1" 

the_browser^Append("comp  2" 
the.browser — Append("comp  3" 
the_browser— Append("comp  4" 
the_browser— Append("comp  5" 
the.browser — Append("comp  6" 
the_browser-^Append("comp  7" 
the.browser^Append("comp  8" 
the_brovvser^Append("comp  9" 
the_bro\vser^Append("comp  0" 

}; 


void  coniponent.selecter::Insert_components(char  tfilejiame) 
{ 

char  the  .component  [256]; 
ifstream  infile(filejiame); 

infile  ^  ws; 

while(  Unfile. eof()) 
{ 


}; 


infile. getline(the.component, 256); 
the_browser^Append(  the  .component); 
infile  ^  ws; 
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ostrstream  command; 
command  <C  "rm  "  <C  file_name  <C  ends; 
char  *the_command=command.str(); 
system(  the_command ) ; 

}; 
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#include  <InterViews/button.h> 
#include  "delete_warning.h" 
#include  <InterViews/2 . 6/_enter . h> 

delete_warning::delete_warning(const  char*  name)  :  delete_warning_core(name)  {} 
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#include  <InterViews/inessage.h> 
#include  <InterViews/strbrowser .h> 
#include  <InterViews/button.h> 
#include  "dependancy_selecter .h" 
#include  <InterViews/world.h> 
#include  <InterViews/2 . 6/_enter . h> 


dependancy-selecter::dependancy^electer(const  char*  name)  :  dependancy^electer-core(name) 
{} 


void  dependancy-selecter 

{ 

choi  ce  _b  rowser — 

choice.browser— ► 

choice-browser 

choice-browser-^ 

choice-browser^ 

choice-browser— + 

choice-browser-^ 

choice-browser— 

choice -browser— + 

choice.browser— 

}; 


Insert  jconiponents( 


Append 
Append 
Append 
Append 
Append 
Append 
Append 
Append 
Append 
Append 


("comp  1" 

("comp  2" 

("comp  3" 

("comp  4" 

("comp  5" 

("comp  6" 

("comp  7" 

("comp  8" 

("comp  9" 

("comp  0" 


void  dependancy .selecter : :new .selection( ) 

{ 

iiit  state-value; 

the-choice_BS^GetValue(  state -value); 
if(state-value9:^0) 
{ 


} 


}; 


//  get  the  new  selection  and  check  it  against  the 

II  selected  list  if  it  is  not  there  than  add  it 

iut  selected  Jndex=choice -browser— >Selection(0); 

char  *new-selection=choice-browser—»-String(selected index); 

if(  selected  _browser^Index(  new  .selection)<0) 

{ 

//  not  in  the  selected  browser  so  append  it 
selected -browser— >-Append(new  selection); 
the-choice-BS^SetValue(O); 

}; 


void  dependancy -selecter::remove_selection() 

{ 

int  state-value; 

the -selected -BS^GetValue(state -Value); 

if(state_value/0 ) 

{ 

//  remove  the  selected  entry  from  the  browser 
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}; 
} 

void  dependancy_selecter::cancel() 

{ 

World*  w=Get\Vorld(); 

w— ►  Remove(  this ) ; 
delete  this; 

} 

void  dependancy^electer::okay()  { 
World*  w=GetWorld(); 
w^Remove(  this ) ; 
delete  this; 


} 


int  selected  Jndex=selectedJ)rovvser—>-Selection(0); 
selected -browser— +Remove( selected  index); 
the^elected-BS— SetValue(O); 
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#include  "error.viewer  .h" 
#include  <InterViews/button.h> 
#include  <InterViews/box.h> 
#include  <InterViews/message.h> 
#include  <InterViews/menu.h> 
#include  <InterViews/texteditor . h> 
#include  <InterViews/textbuf f er . h> 
#include  <InterViews/world.h> 
#include  <InterViews/2.6/_enter .h> 
#include  <strstreain.h> 
#include  <strecim.h> 
#include  <stdlib.h> 
#include  <string.h> 

error_viewer::eiTor_viewer(const  char*  name,  char  *error_file)  : 
error  _viewer-core(  name) 

{ 

ostrstream  vievv_name-buffer; 
viewjiame.buffer  <C  "Error  Messages"  <C  ends; 
the -file  Jiame^Remove(  default-message); 
delete  default.message; 

Message*  the_file_message=:new  Message("  error  .file", 

view_name_buffer.str(), 
Center); 

the_file  jiame — ►Insert(the_file_message); 

the_filejiame — Change( ); 

ifstream  erior( error _file); 
if  (error) 

{ 

ostrstream  construct _buffer; 
while(!error.eof()) 

{ 

char  text=error.get(); 
if(text^EOF) 

{ 

construct -buffer. put  (text); 

}; 
}; 

-    char  *the^tring=construct  J)uffer.str(); 
int  the  Jength=strlen(  the  .string); 

the_buffer=new  Text  Buffer(  the  .string, the  Jength,  the  Jength); 
the_editor— Edit(the_buffer); 

} 
else 

{ 

cerr  <  "UNABLE  TO   OPEN   BODY  FILE  TO   VIEW  FILE-NAME   IS 
cerr  <C  error -file  <C  "\n"; 

}; 
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} 


void  error-viewer: :ok-action() 

{ 

World  *w=GetWorld(); 

w— ►Remove(this); 
/ 1  delete  this; 

}; 


298 


#include  <InterViews/button.h> 

#include  <InterViews/streditor .h> 

#include  <InterViews/f ilebrowser.h> 

#include  "input_f  ile_selecter  .h" 

#include  "error_viewer  .h" 

#include  <InterViews/2.6/_enter .h> 

#include  <streajn.h> 

#include  <string.h> 

#include  <strstream.h> 

#include  <InterViews/world.h> 

#include  <sys/par2un.h> 

#include  <stdlib.h> 

extern  "C" 

{ 

extern  char  *getwd(char  *); 


}; 


#def  ine  TEMP_ENVIRONMENT  "TEMP" 
#def  ine  CAPS_ENVIRONMENT  "CAPS" 
#def  ine  DEFAULT.TEMP  "/tmp" 
#def  ine  KWL_PREFIX  "tmpkl" 
#def  ine  ERROR-PREFIX  "tmperror" 
#def  ine  KWQ.PREFIX  "tmpcl" 
#def  ine  SB-PROGRAM  "sb" 


inputJile_selecter;;input-file-selecter(const  char*  name)  :  input-file-selecter-core(name)  { 

char  pathname[MAXPATHLEN]; 
getwd(  pathname ) ; 
psdl-files— Set  Directory  (pathname); 
spec-files — -Set  Directory  (pathname); 
body-files— >Set  Directory  (pathname); 
psdLdir—^Message(  psdl-files— ^GetDirectoryO); 
ada_spec-dir— ►Message(psdLdir— >Text()); 
ada_body_dir— ••Message(psdl-dir— +Text()); 

} 

void  input_file_selecter::psdl.selected() 

{ 

int  state-Value; 

psdl-BS— ♦GetValue(state_value); 

if(state-value/0) 

{ 

int  index=psdl_files— Selection(O); 

if(  psdl-files— >IsADirectory(psdl_files^Path(index))) 

{ 

psdl_dir—»Message(  psdl-files^  Path(  index)); 
ada_spec_dir-^  Message(psdl -files— >-Path(  index)); 
ada-body_dir—Message(  psdl-files^  Path(  index)); 
psdl-files— »-SetDirectory(psdl-dir—Text()); 
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} 

else 

{ 


spec_files— --Set  Directory  (psdl_dir—*-Text( )); 
body  Jiles^Set  Directory  (psdLdir—>Text()); 
psdl_file_name— Message( "  " ) ; 
specJile-naine— ►Message(""); 
body  _file_name— Message( "  " ); 


}; 
} 


psdl_fiiejiame—Message(psdlJiles-*Path(  index)); 

//  update  the  other  file  names  if  the  correct  ones  exist 

}; 

psdl^S— SetValue(O); 


void  input_filejselecter::update.pdsLdir()  { 
int  state_value; 

psdl.dir_BS—*GetValue(  state-Value); 
if(state_value^O) 

{ 

//  the  user  has  entered  a  directory  name  of  his  own 

const  char  *temp_directory=psdLfiles— ►Normalize(psdLdir-^-Text()); 
char  +new_directory=new  char[strlen(temp_directory)+l]; 
strcpy(  new  .directory,  temp -directory); 
if(psdl_files — IsADirectory(new_directory)) 

{ 

psdLdir—Message(  new  .directory); 

ada.spec_dir-^Message(new  .directory); 
ada.body.dir-^Message(new.directory); 
psdlJiles-^Set  Directory  (new  .directory); 
spec  Jiles—>-SetDirectory(new. directory); 
bod  v.files—'SetDirectory(  new  .directory); 

}; 

delete  new.directory; 
psdl.dir3S-»SetValue(0); 

}; 
} 

void  inputJile.seiecter::spec.selected() 

{ 

int  state.valiie; 

spec  Jiles.BS— Get  Value(state. value); 

if(state.value^O) 

{ 

int  index=spec  Jiles^Selection(O); 

if(specJiles— 'Is  ADirectory(specJTles—Path(  index))) 

{  . 

ada.spec.dir—Message(speciiles^Path(  index)); 
ada.body.dir— <'Message(specJiles— 'Path(index)); 
spec  Jiles— Set  Directory  ( ada.spec  jdir—>Text( )) ; 
body_files— SelDirectory(ada.spec-dir— 'TextO); 
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}; 
} 


} 

else 

{ 

specJile_name—Message(spec -files— »-Path(index)); 

//  update  the  other  file  names  if  the  correct  ones  exist 

}; 

spec_files_BS— ►SetValue(O); 


void  input_file_selecter::update^da_spec_dir() 

{ 

int  state  .value; 

ada_spec-dir3S— ►Get  Value(state -Value); 

if(state_value7^0) 

{ 

//  the  user  has  entered  a  directory  name  of  hts  own 

const  char  *temp_directory=spec_files— ►Normalize(ada_spec_dir— >Text()); 
char  +nevv_directory=new  char[strlen(temp_directory)+l]; 
strcpy(  new  .directory,  temp -directory); 
if(specJiles—*IsADirectory(  new  .directory)) 

{ 

ada.spec.dir— »'Message(new_directory); 

ada_body_dir—<'Message(new  .directory); 
spec  Jiles-^SetDirectory( new  .directory); 
body  . files— ►SetDirectory  (new  .directory); 

}; 

delete  new.directory; 
ada.spec.dir.BS— +SetValue(0); 

}; 
} 

void  input.file_selecter::body.selected()  { 
int  state.value; 

body  Jiles_BS— ►Get  Value(state.value); 
if(state.value7^0) 

{ 

int  index=bodyJiles — Selection(O); 

if(body.files— ►IsADirectory(bodyJiles— ••Path(index))) 

{  - 

ada.body.dir— *-Message(bodyJiles— '■Path(index)); 
bodyJiles— ♦SetDirectory(ada.body.dir— ►TextO); 

} 
else 

{ 

body.filejiame— 'Message(bodyJiles— ►Path(index)); 

}; 

body  .files.BS— Set  Value(0 ) ; 
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}; 
} 

void  input_filejselecter::update-ada_body_dir() 

{ 

int  state.value; 

ada_body_dir_BS— ►GetValue(state-value); 

if(state_value^O) 

{ 

//  the  user  has  entered  a  directory  name  of  his  own 

const  char  *temp-directory=body_files— ►Normalize(ada^body_dir— *Text()); 
char  *new_directory=new  char[strlen(temp_directory)+l]; 
strcpy(  new  .directory, temp -directory); 
if(body_files — Is  A  Directory  (new.directory)) 

{ 

ada_body_dir— 'Message(new_directory); 

bod  vJiles—'SetDirectory  (new -directory); 

}; 

delete  new.directory; 
ada_body_dir_BS^SetValue(0); 

}; 
} 

void  input Jilejselecter::cancel() 

{ 

World  *w=GetWorld(); 
w— ♦Remove(this); 
delete  this; 

} 

void  input_filejselecter::okay() 

{ 

int  command-Status; 

World  *w=GetWorld(); 

char  *psdlJile=NULL; 
char  *spec_file=:NULL; 
char  *body.file=NULL; 
ostrstream  psdl_file-bufFer; 
ostrstream  spec_file_buffer; 
ostrstream  bodyJile-buffer; 
//  vertfy  that  all  of  the  selected  items  are  files 
if(psdl_files— ♦Selections()>0  kk  bodyJiles— Selections()  >  0  kk 
spec_files^Selections()  >  0) 


{ 


//  something  has  been  selected  in  each  browser 
II  so  see  if  they  are  all  valid  files 

int  psdl_file_iium=psdl-files — -Select ion(O); 

int  spec_file_num=spec -files— Select ion(O); 

int  body_file-iium=body_files — Selection(O) ; 

if(!psdLfiles— Is  A  Directory  (psdl -files— Path(psdl_file_num))) 
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{ 

//  not  a  directory  so  get  the  file.name 
psdl_file_buffer  <C  psdl_files— ►Path(psdl_file_num); 
psdl-file.buffer  <C  ends; 
psdl_file=psdl_file_bufFer.str(); 

h 

if(!spec_files— >-IsADirectory(spec_files— »-Path(spec  _file_num))) 

{ 

//  not  a  directory  so  get  the  file.name 

spec  jile -buffer  <C  spec  Jiles— »'Path(speciile  Jium); 
spec_file_buffer  <C  ends; 
spec_file=spec -file -buffer. str(); 

}; 

if(!body_files^IsADirectory(body_files— »-Path(body_file_num))) 

{ 

//  not  a  directory  so  get  the  file.name 
bodyJile-buffer  <C  bodyJiles— *Path(body_file_num); 
body_file_buffer  <C  ends; 
bodv_file=body_file-buffer.str(); 

}; 

iffspecJile^NULL  kk  psdl  Jile^NULL  kk  bodyJile^NULL) 

{ 

//  all  were  valid  files  so  process  the  addition 

char  *temp_dir=getenv(TEMP_ENVIRONMENT); 

if(temp_dir==NULL) 

{ 

temp_dir=new  char[strlen(DEFAULT_TEMP)+l]; 
strcpy(temp.dir,DEFAULT_TEMP); 

}; 

char  *error_file=tempnam(temp_dir,"tmpa"); 

ostrstream  command-buffer; 

command_buffer  <  SB-PROGRAM  <  "  ca  ada  "; 

command-buffer  <C  psdLfile; 

command-buffer  <C  "  "  <C  spec-file; 

command_buffer  <C  "   "  <C  bodyJile; 

command_buffer  <C  "   >   "  *C  error.file  <C  ends; 

ostrstream  rm.buffer; 

rm-buffer  <C  "rm  "  <C  error_file  <^  ends; 


char  *command=command_buffer.str(); 

commancLstatus=system(command); 

if(command_status^O) 

{ 

//  display  error  info 

error.viewer  *error_view=:new 
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error_viewer(" Add  Component" ,error_file); 
w— ►Insert  Application(error_view); 
char  *rm=rm_buffer.str(); 
system  (rm); 

} 
else 

{ 

char  *rm=rm_buffer.str(); 

system  (rm); 

}; 

w— ►Remove(this); 
delete  this; 


) 
else 

{ 


}; 


w— RingBell(lOO); 


} 
else 

{ 

w— RingBell(lOO); 

}; 


void  input_file_selecter:: lie w_psdl -file Jiame() 
{} 

void  input_filejselecter::new^pec_filejiame() 
{} 

void  input_file_selecter::new_bodv_filejiame() 
{} 
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#include  <InterViews/button.h> 
#include  <InterViews/message.h> 
#include  <InterViews/strbrowser . h> 
#include  "keyword_selecter  .h" 
#include  <InterViews/2 . 6/-enter . h> 
#include  <streain.h> 
#include  " component_selecter . h" ; 
tfinclude  <InterViews/world.h> 
#include  <strstreciin.h> 
#include  <stdlib.h> 
#include  <string.h> 

#def ine  TEMPJ:NVIR0NMENT  "TEMP' 
#def  ine  CAPS_ENVIRONMENT  "CAPS" 
#deline  DEFAULT.TEMP  "/tmp" 
#def  ine  KWL.PREFIX  "tmpkl" 
#def  ine  ERROR-PREFIX  "tmperror" 
#def  ine  KWQ.PREFIX  "tmpcl" 
#def  ine  SB_PROGRAM  "sb" 


keyword-selecter:: keyword ^electer(const  char  *name):keyword_selecterxore(name) 

{ 
} 

void  keyword-selecter:: 

okayO 


{ 


int  command-Status; 

//  check  huUonstaie  for  a  0  value 

World  *w  =  GetWorldO; 

//  check  to  ensure  that  at  least  1  keyword  was  selected 

if  (selected_browser^Count()  >  0) 

{ 

ostrstream  command-buffer; 

ostrstream  remove-buffer; 

char  *caps.dir  =  getenv(CAPS-ENVIRONMENT); 

char  *temp.dir  =  getenv(TEMP_ENVIRONMENT); 

if  (temp.dir  ==  NULL) 

{ 

temp-dir  =  new  char[strlen( DEFAULT.TEMP)  +  1]; 
strcpy(temp-dir,  DEFAULT -TEMP); 

}; 


char  *list_file  =  tempnam(temp_dir,  KWL.PREFIX); 
ofstream  output( list-file) ; 
if (output) 
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{ 


//  opened  the  kwl  file  fine 

int  i; 

for  (i  =  0;  i  <  selected-browser— ►CountO;  i++) 

{ 


//  output  each  kw  selected  to  the  file 

output  •<  selected_browser^-String(i)  <C  "\n"\ 

}; 

output. close(); 


w— »Remove(  this ) ; 


char  *result_file  =  tempnam(temp_dir,  KWQ.PREFIX); 
char  *erroi_file  =  tempnam(temp_dir,  ERROR-PREFIX); 
command.huffer  <  SB.PROGRAM  <  "  kwq  ada  "  <  list^file  <  "  "; 
command-buffer  <C  result.file  -C  "   >   "  <C  error-file  <C  ends; 

remove-buffer  <^  "rm   "; 

remove-buffer  <C  list-file  <C  "   "  <C  error -file; 

remove-buffer  <C  ends; 

char  *rm-command  =  remove^ buffer. str(); 

char  ^command  =  command_buffer.str(); 


command-status=system(command); 
component-selecter  *component-selecter-by -keyword; 
if  (command-statusT^O) 
{ 


} 
else 

{ 


}; 


cerr  <  "AN  ERROR  OCCURED  WITH  COMMAND   "  <  command  <  "\n"; 


//  no  error  occured  so  create  the  component  selecter 

component-selecter-by -keyword  =  new 

component_selecter("  component  jselecter-by-key  word"); 

//  pass  the  result  stream  to  selecter  to  process 

component-selecterJby  _key  word- 
Insert  _components(  result -file); 


//  remove  temp  files 
system(rm-command); 
delete  command; 
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delete  rm.command; 


w— ►Insert  Application(componentjselecter_by -key  word); 
delete  this; 

} 
else 

{ 

cerr  <  "UNABLE  TO   OPEN  THE  kwl   FILE\N"; 

w— *Remove(this); 

}; 
} 

else 

{ 

w-^RingBell(lOO); 

//  reset  the  button  state 


}; 


}; 


void  keyword-selecter:: 

cancel() 

{ 

World  *w  =  GetWorldO; 

w— Remove(  this ) ; 

delete  this; 

}; 

void  key  word  jselecter:: 

new_selection() 
{ 

int  state.value; 

the_choice_BS— Get  Value(  state  .value); 

if  (state.value  ^  0) 

{ 

//  get  the  new  selection  and  check  it  against  the 

II  selected  list  if  it  is  not  there  than  add  it 

int  selectedJndex  =  choice-browser— »Selection(0); 

char  *newjselection  =  choice _browser-^String(selected  index); 

if  (selected-browser^Index(  new  selection)  <  0) 

{ 

//  not  tn  the  selected  browser  so  append  it 
selected-browser—»Append( new  selection); 
the_choice-BS-^SetValue(0); 

}; 


} 


void  keyword-selecter:: 

remove_selection( ) 
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{ 


int  state-value; 

the^elected-BS— ►Get  Value(state -value); 

if  (state-value  /  0) 

{ 

//  remove  the  selected  entry  from  the  browser 

int  selectedJndex  =  selected j3rowser^Selection(0); 
selected-browser—>Remove(selected  index); 
the  -selected  _BS— Set  Value(  0) ; 

}; 


} 


void  keyword-selecter:: 

Insert-key  wordsO 

{ 

int  command-Status; 
ostrstream  commantLbuflFer; 
ostrstream  remove-buffer; 

char  *caps-dir  =  getenv(CAPS-ENVIRONMENT); 
char  *temp_dir  =  getenv(TEMP-ENVIRONMENT); 
if  (temp-dir  ==  NULL) 

{ 

temp-dir  =  new  char[strlen(DEFAULT-TEMP)  +  1]; 
strcpy(  temp-dir.  DEFAULT -TEMP); 

}; 

command-buffer  <  SB-PROGRAM  <  "  kwl  ada  "; 
char  *list-file  =  tempnam(temp-dir,  KWL- PREFIX); 
char  *error-file  =  tempnam(temp-dir,  ERROR-PREFIX); 
command-buffer  <C  list-file  -C  "   >   "  <C  error-file  <C  ends; 

remove-buffer  <C  "rm  "; 

remove-buffer  <C  list-file  <C  "   "  <C  error-file  <C  ends; 

char  *rm-Command  =  remove-buffer. str(); 

char  *command  —  command-buffer. str(); 
command^tatus=system(  command ) ; 
if  (command.status==0) 

{ 

//  no  error  occured  so  read  in  the  kwl 
ifstream  kwf(list-file); 
if  (kwf) 

{ 

char  *next_key\vord  =  new  char[256]; 

//  file  opened  fine 

while  (!kwf.eof()) 

{ 

k  wf. get  line(next_key  word, 256); 
kwf  ^  ws; 
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choice-browser— ►Append(next -keyword); 

}; 
} 

else 

{ 

cerr  <  "UNABLE  TO   OPEN   OUTPUT  FILE  FOR  COMMAND    "; 
cerr  <C  command  <C  "\n"; 

}; 
} 

else 

{ 

//  display  error  info 

cerr  <  "AN  ERROR  OCCURED  WITH  COMMAND   "  <  command  <  "\n"; 

}; 


//  remove  temp  files 
system(rm-command); 
delete  command; 
delete  rm-command; 


}; 
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#include  <InterViews/button.h> 
#include  <InterVieHs/box.h> 
#include  <InterViews/raessage.h> 
#include  <InterViews/inenu.h> 
#include  <InterVieHs/texteditor . h> 
#include  <InterViews/textbuf f er . h> 
#include  <InterViews/world.h> 
#include  "psdl_viewer  .h" 
#include  "spec_viewer  .h" 
#include  " save.browser-dialog . h" 
#include  "delete_wau:ning.h" 
#include  <string.h> 
#include  <InterViews/2 . 6/_enter . h> 
#include  <strstreain.h> 
#include  <strecLm.h> 
#include  <stdlib.h> 


#def  ine  TEMP_ENVIRONMENT  "TEMP" 
#def  ine  CAPS-ENVIRONMENT  "CAPS" 
#def  ine  DEFAULT-TEMP  "/trap" 
#def  ine  PSDL.PREFIX  "tmpvp" 
#def  ine  SPEC-PREFIX  "tmpvs" 
#def  ine  BODY-PREFIX  "tmpvb" 
#def  ine  ERROR-PREFIX  "tmperror" 
#def  ine  SB-PROGRAM  "sb" 


psdl-viewer::psdl-vie\ver(const  char*  name)  :  psdl-viewer-core(name) 

{ 

component_iiame=(char  *)name; 

ostrstream  view_name-buffer; 

viewjiame-buffer  <C  name  ■<  "PSDL  Specification"  <C  ends; 

the  Jile-name^Remove(  default-message); 

delete  default-message; 

Message*  tlie_file-message=new  Message("f  ile-name", 

view_name_buffer.str(), 
Center); 

the_file_name— >Insert(the_file_message); 

the-filejiame— Change( ); 

//  get -the  files  from  the  softbase  and  open  the  psdl  file 

int  command-Status; 
ostrstream  command-buffer; 
ostrstream  remove_buffer; 

char  *caps.dir  =  getenv(CAPS-ENVIRONMENT); 
char  *temp-dir  =  getenv(TEMP-ENVIRONMENT); 
if  (temp-dir  ==  NULL) 

{ 

temp-dir  =  new  char[strlen(  DEFAULT  .TEMP)  +  1]; 
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strcpy(temp-dir,  DEFAULT _TEMP); 

}; 

command-buffer  <  SB-PROGRAM  <  "  cv  ada  "  <  name; 

psdl-file  =  tempnam(temp_dir,  PSDL.PREFIX); 
spec-file  =  tempnam(temp-dir,  SPEC-PREFIX); 
body-file  =  tempnam(temp.dir,  SPEC-PREFIX); 

char  *error_file  =  tempnam(temp-dir,  ERROR-PREFIX); 

command-buffer  <C  "  "  <C  psdl-file  <C  "  "  <C  specJile; 
command-buffer  <C  "  "  <C  bodyJile; 

command-buffer  <C  "   >   "  <C  error.file  <C  ends; 
remove-buffer  <C  "rm  "  <C  error_file  <C  ends; 


char  *command  =  command-buffer. str(); 
command-status=system(  command ) ; 
if  (command-status==0) 

{ 

//  no  error  occured  so  read  in  the  psdl-file 

ifstream  psdl(psdl-file); 

if(psdl) 

{ 

ostrstream  construct -buffer; 
while{!psdl.eof()) 

{ 

char  text=psdl.get()^ 
if(text7^E0F) 

{ 

construct -buffer. put(  text); 

■}; 
}; 

the.string=:constructi)uffer.str(); 

int  theJength=strlen(  the  .string); 

the-buffer=new  Text  Buffer(  the  .string, the  Jength, the  Jength); 

the_editor^Edit(the_buffer); 

} 
else 

{ 

cerr  <  "UNABLE  TO   OPEN   PSDL  FILE  FOR  COMMAND   "; 

cerr  <C  command  <C  "\n"; 

}; 
} 

else 

{ 

//  display  error  info 

cerr  <  "AN  ERROR  OCCURED  WITH  COMMAND   "  <C  command  <  "\n" 
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}; 


//  remove  temp  files 

char  *remove_command=remove_buffer.str(); 
system(  remove.command ) ; 
delete  remove.command; 
delete  command; 


} 


void  psdl_viewer::_Saveas() 
{ 

ostrstream  defjiame.bufFer; 

def_name_buffer  <C  component-name  <C  ".psdl"  <C  ends; 

char  *defjiame=def_name_buffer.str(); 

save -browser -dialog  *save-browser=new  save_browser-dialog(def-name); 

World  *w=GetWorld(); 

w—*InsertTransient(save -browser, this); 

boolean  save _flag=save-browser^ Accept (); 

if(save-flag) 

{ 

ofstream  output_file(save-browser— file-name()); 
output-file  <C  the_string; 
output-file. close(); 

}; 

w— *Remove(save-browser); 
delete  save-browser; 


} 

void  psdl_vievver::-Print()  { 

/*  unimplemenied  */ 
} 

void  psdl_viewer::_Delete() 

{ 

World*  w^GetWorldO; 

deletc-warning  *warning=new  delete-warning("the_warning"); 
w^InsertTransient(  warning,  this); 
if(  warning— Accept( )) 


{ 


//  create  list  of  components 
int  command-Status; 
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ostrstream  command-buffer; 
ostrstream  remove_bufFer; 

char  *caps_dir  =  getenv(CAPS  J:NVIR0NMENT); 
char  ♦temp-dir  =  getenv(TEMP_ENVIRONMENT); 
if  (temp.dir  ==  NULL) 

{ 

temp-dir  =  new  chai-[strlen( DEFAULT-TEMP)  +  1]; 
strcpy(temp_dir,  DEFAULT _TEMP); 

}; 

command-buffer  <  SB-PROGRAM  <  "   cd  ada  "; 
command-buffer  <C  component-name  <C  "  "; 
char  *error_file  =  tempnam(temp-dir,  ERROR-PREFIX); 
command-buffer  <C  "    >    "  <C  error.file  <C  ends; 

remove-buffer  <C  "rm  "; 
remove.buffer  <C  error-file  <C  ends; 

char  *rm_command  =  remove-buffer. str(); 

char  *command  =  command-buffer. str(); 

//  put  dialog  here  io  ensure  this  is  what  you  want 

command-status=system(  command); 
if  (command-status^T^O) 
{ 

//  display  error  info 

cerr  <C  "AN  ERROR  OCCURED  WITH  COMMAND   "  <  command  <  "\n"; 

}; 


//  remove  temp  files 
system(  rm_command ) ; 
delete  command; 
delete  rni-command; 

}; 

w—*Remove(  warning); 
delete  warning; 

} 

void  psdLviewer::_QuitView() 

{ 

World  *w=GetVVorld(); 

w— ►Remove(  this ) ; 

ostrstream  remove-buffer; 

remove.buffer  <C  "rm  "  <  psdl.file  <^  "   "  <C  specJile; 

remove.buffer  <C  "   "  <C  body.file  <C  ends; 
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char  *remove=:remove_buffer.str(); 
system  (remove); 

delete  thejstring; 
delete  the.buffer; 
// delete  this; 

} 

void  psdLviewer::_Find()  { 

/*  unimplemented  */ 

} 

void  psdLviewer::view^pec.action() 

{ 

World  *w=GetWorld(); 

spec.viewer  *new_vie\v=new  spec _viewer(component .name, 

specJile, 
body-file); 

w— Insert  Application(new.view); 

} 

void  psdLviewer::Handle  (Events  e) 
{ 

}; 
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#iiiclude  <InterVieHs/button.h> 
#include  <InterViews/streditor . h> 
#include  <InterVieHs/lilebrowser .h> 
#include  <InterViews/world.h> 
#include  "query_f  ile_dialog.h" 
#include  <InterViews/2.6/_enter .h> 
#include  <streaitt.h> 
#include  <string.h> 
#include  <sys/parcun.h> 
#include  <stdlib.h> 
#include  <strstreeun.h> 
extern  "C" 

{ 

extern  char  *getwd(char  *); 


}; 


query_file_dialog::query_file_dialog( const  char*  name)  :  query Jile_dialog_core(name) 

{ 

char  patliname[MAXPATHLEN]; 

getwd(pathname); 

the_file_browser-^Set  Directory  (pathname); 

directory  Jiame—Message(the_file_browser-^GetDirectory()); 
} 

void  query _file_dialog::file_name_action( ) 

{ 

World  *w=GetWorld(); 

//  ensure  file  does  not  already  exist 

int  state_value; 

theJilejiame.BS— +GetValue(state_vaIue); 

if(state_value7^0) 

{   , 

int  theJndex=the _file_browser^Index(the  Jilejiame— +Text()); 

if(the_index  >  0) 

{ 


w— RingBell(lOO); 


} 
else- 

{ 


//  update  the  save  browser  button  to  1  to  indicate 
II  success 

the_file_browser^Select(the  index); 
dialog.BS^SetValue(l); 
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the_file-name_BS— *SetValue(0); 

}; 


} 


void  query -file-dialog:  :directoiy_action( ) 

{ 

World  *w=GetWorld(); 

int  state-value; 

directory -name.BS^GetValue(state_value); 

if(state-value/0) 

{ 

//  ihe  user  has  entered  a  directory  name  of  his  own 
const  char 
*temp_directory=the-file-browser— ►Normalize(directory-name— •■TextO); 

char  *new_directory=new  char[strlen(temp_directory)+l]; 
strcpy(  new -directory,  temp -directory); 
if(the-file_browser—IsADirectory(  new -directory)) 

{ 

direc  tory  -name— ►  Message( new  -directory ) ; 

the_file -browser— Set  Directory  (new  jdirectory); 

} 
else 

{ 

w— RingBell(lOO); 

}; 

delete  new.directory; 

directory  Jiame_BS^Set  V'alue(  0 ) ; 

}; 


} 

void  query-file_dialog;;file-browser-action() 

{ 

int  state-value; 

file-browser -BS^GetValue(state-value); 

if(state-value/0) 

{         _ 

int  index=the-file-browser — Selection(O); 

if(  the-file-browser-^lsADirectorv(  the -file -browser— ►Path(index))) 

{  - 

directory -name— *Message(the_file-browser^Path(index)); 

the_file-browser^SetDirectory(directory_name— ►TextO); 

} 
else 

{ 

the -file -name— Message(  the_file -browser— <-String(index)); 
dialog-BS— SetValue(l); 


}; 
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file-browser  _BS— Set  Value(O); 

}; 
} 

void  queryJile_dialog::cancel_action() 

{ 

int  state.value; 

cancel  _BS—*-GetValue(state_value); 

if(state-value9^0) 

{ 

//  a  value  other  than  1  indicates  false 

dialog_BS--SetValue(2); 
cancel  _BS— Set  Value(O); 

}; 
}; 

void  query -file-dialog:  :okay_action( ) 

{ 

World  *w=GetWorld(); 

int  state -Value; 

okay  _BS— 'Get  Value(state-value); 

if(state_value^O ) 

{ 

int  the-index=the-file-browser^-Index(the  Jile  Jiame— +Text()); 
if(the Judex  <  0) 

{ 

//  file  already  does  not  exists 

w— RingBell(lOO); 

} 
else 

{ 

//  update  the  save  browser  button  to  1  to  indicate 

II  success 

dialog-BS— SetValue(l); 

}; 

okay-BS^SetValue(O); 


} 

const  char  *query_file_dialog;:file-name() 

{ 

ostrstream  full-file_name; 

full-file_name  <C  the_file_browser— 'GetDirectoryO; 

full-file-name  <C  the-file-uame— Text(); 

return  full-file-name.str(); 
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}; 
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finclude  <InterViews/button.h> 
#include  <InterViews/streditor.h> 
#include  <InterViews/f ilebrowser . h> 
#include  <InterViews/world.h> 
#include  "  save_browser_dialog . h" 
#include  <InterViews/2 . 6/-enter . h> 
#include  <streain.h> 
#include  <string.h> 
#include  <sys/parain.h> 
#include  <stdlib.h> 
#include  <strstreajn.h> 
extern  "C" 

{ 

extern  char  *getwd(char  *); 


}; 


save_browser_dialog::save-browser_dialog(const  char*  name)  :  save_browser_dialog-core(name) 

{ 

default_name=(char  *)name; 

char  pathname[MAXPATHLEN]; 

getwd(  pathname); 

theJile-browser—»-SetDirectory  (pathname); 

the.directory  Jiame-^Message(  the -file -browser— '■Get  DirectoryO); 

theJilejiame— Message(default_name); 

} 

void  save_browser_dialog::file_browser_action() 

{ 

int  state.value; 

file_browserJ3S^GetValue(state  .value); 

if(state_value9^0) 

{ 

int  index=the_fileJ5rowser^Selection(0); 

if(the_file_browser— ►IsADirectory(theJileJ3rowser— »-Path(index))) 

{ 

the_directoryjiame—Message(  the  JileJDrowser—*Path(  index)); 
the_file_browser^SetDirectory(thejdirectory  Jiame— >Text()); 


}; 
} 


};      - 

file_browser_BS— ►SetValue(O); 


void  save_browser_dialog::updateJile_name() 

{ 

World  *w=GetWorld(); 

//  ensure  file  does  noi  already  exist 
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int  state.value; 

file_name_BS— *GetValue(state_value); 

if(state_value^O) 

{   , 

int  theJndex=the _file_bro\vser— Index(theiile  jiame— ►TextO); 
if(the_index  >  0) 

{ 

//  file  already  exists  so  do  not  accept  it 
w— RingBell(lOO); 

} 
else 

{ 

//  update  the  save  browser  button  to  1  to  indicate 
II  success 
dialog.BS^Set  Value(  1 ) ; 


}; 

fiIe_name_BS— SetValue(O); 

}; 

} 

void  save-browser_dialog::update_directory() 

{ 

World  *w=GetWorld(); 

int  state.value; 

new  .directory  _BS— Get  Value(state  .value); 

if(state_value7^0) 

{ 

//  the  user  has  entered  a  directory  name  of  his  own 

const  char 

*temp.directory=theJile.browser-^Normalize(the.directoryjiame— ►TextO); 

char  ♦new.directory=new  char[strlen(temp_directory)+l]; 

strcpy(  new  .directory,  temp. directory); 

if(  the  Jile.browser—IsA  Directory  (new  jlirectory)) 

{ 

the-directoryjiame^Message(  new  .directory); 

theJile_browser-^SetDirectory(newjdirectory); 

•   } 
else 

{ 

w— RingBell(lOO); 

}; 

delete  new.directory; 
new_directory_BS— *SetValue(0); 


} 


}; 


void  save.browser.dialog:;canceLaction() 
{ 
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int  state.value; 

cancel  _BS— ►Get  Value(  state  .value) ; 

if(state.value7^0) 

{ 

//  a  value  other  than  1  indicates  false 

dialog_BS-^SetValue(2); 
cancel  3S^SetValue(0); 

}; 
} 

void  save_browser_dialog::ok_action() 

{ 

World  *w=GetVVorld(); 

int  state_value; 

ok_BS-^GetValue(state-value); 

if(state_value7^0) 

{ 

int  theJndex=the_file_browser— *Index(the -filejiame^TextO); 
if(the_index  >  0) 

{ 

//  file  already  exists  so  do  not  accept  it 

w— RingBell(lOO); 

} 
else 

{ 

//  update  the  save  browser  button  to  1  to  indicate 

I j  success 

dialog.BS— SetValue(l); 


}; 

ok_BS^SetValue(0); 


}; 

} 


const  char  *save_browser_dialog::file_name() 

{ 

ostrstream  full_file_name; 

full_file_name  <C  the_file_browser^GetDirectory(); 

full_file_name  <C  the_file_name-^Text(); 


}; 


return  fulLfile.name.strO; 
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#include  <InterViews/painter .h> 
#include  <InterViews/shape.h> 
#inclucie  <InterViews/sensor .h> 
#include  <InterViews/world.h> 
#include  "SB_main-jnenu.h" 
#include  <InterViews/2.6/_enter .h> 

static  PropertyData  propertiesQ  =  { 
#include  "softbase-props" 

{  "*title","CAPS  SOFTBASE"}, 

{ml} 

}; 

static  OptionDesc  optioiisQ  =  { 
{  nil  } 

}; 

int  main  (int  argc,  char**  argv)  { 

World*  w  =  new  World("****",  argc,  argv,  options,  properties); 
SB_main_menu*  the_main_menu  =  new  SB_main_menu("the_main_menu"); 
w— ►Insert  Application(  the  jiiain_menu); 

w— ♦RunO; 
delete  w; 
return  0; 
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#include  <InterViews/button.h> 
#include  <InterViews/box.h> 
#include  <InterViews/message.h> 
#include  <InterViews/menu.h> 
#include  <InterViews/texteditor .h> 
#include  <InterViews/textbuff er .h> 
#include  <InterViews/world.h> 
#include  "spec.viewer  .h" 
#include  "psdl_viewer  .h" 
#include  "body_viewer  .h" 
tfinclude  " save_browser_dialog .  h" 
#include  <InterViews/2 . 6/_enter . h> 
#include  <strstreajn.h> 
#include  <streajn.h> 
#include  <stdlib.h> 
#include  <string.h> 

spec_viewer::spec_viewer(const  char*  name,  char  *specJile,  char  *body_file_in)  : 
spec  .viewer  _core(  name) 

{ 

component_name=(char  *)name; 

body  _file= body  _fileJn; 

ostrstream  vie\v_name_buffer; 

view_name_buffei'  <C  componentjiame  <C  "Implementation  Specification"  <C  ends; 

the  Jilejiame—>-Remove(  default  Jiiessage); 

delete  defaultjiiessage; 

Message*  theJile_message=:new  Message("f ile jiame", 

vie  w_name_buffer  .str( ) , 
Center); 

theJilejiame— 'Insert  (the  JilejTiessage); 

theJilejiame^ChangeO; 

ifstream  spec(spec  Jile); 
if  (spec) 

{ 

ostrstream  construct  .buffer; 
while(!spec.eof()) 

{ 

char  text=spec.get(); 
if(text7^E0F) 

{ 

construct. buffer. put(  text); 

}; 
}; 

the.string=:construct  i)uffer.str(); 

int  theJength=strlen(  the  .string); 

theJ3uffer=new  Text Buffer( the  .string, the  Jength, the  Jength); 

thejeditor— Edit(theJ3uffer); 

} 
else 
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{ 

cerr  <  "UNABLE  TO   OPEN   SPEC  FILE  TO  VIEW  FILEJJAME   IS   "; 
cerr  ^  specfile  <C  "\n"; 

}; 


} 

void  spec_viewer;:_Saveas() 

{ 

ostrstream  defjiame.buffer; 

def_name_buffer  <C  component_name  <C  ".spec. a"  <C  ends; 

char  *def_name=def_name_bufFer.str(); 

save_bro\vser_dialog  *save_browser=new  save_browser_dialog(def_name); 

World  *w=GetWorld(); 

w— ►InsertTransient(save_browser,this); 

boolean  save_flag=save -browser— Acoept(); 

if(save_flag) 

{ 

ofstream  output_file(save-browser— file_name()); 

output-file  <C  the-string; 

output_file.close(); 

}; 

w— Remove(save_bro\vser); 
delete  save_browser; 


} 

void  spec_viewer::_Print()  { 
/*  unimplemented  */ 

} 

void  spec_viewer::_QuitView() 

{ 

//  remove  temporary  file  and  remove  application  from  world 

World  +w=GetWorld(); 
w-^Remove(this); 
//delete  this; 

} 

void  spec_viewer::_Find()  { 
/*  unimplemented  */ 

} 

void  spec  .viewer::  view  _body_action() 
{ 

World  *w=GetWorld(); 

body.viewer  *new_view=iiew  body.viewer(componentJiame, 
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body -file); 

w— <-InsertApplication(new_view); 
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